Вставка php кода:
<?php
if(isset($_REQUEST["action"]))
if($_REQUEST["action"] == "play")
{
?>
<embed src="Kalimba.mp3" autostart="true" loop="false" style="width:5px; height:2px;">
<?php
}
?>хм.. без подложки смотрится стремновато...
А если просто код:
<?php
if(isset($_REQUEST["action"]))
if($_REQUEST["action"] == "play")
{
?>
<embed src="Kalimba.mp3" autostart="true" loop="false" style="width:5px; height:2px;">
<?php
}
?>
Ещё код, язык C (C99):
/// 27.08.2013
/// tiny logger sampling
#include<stdio.h>
#include<values.h>
#include<conio.h>
#include<dos.h>
#include<math.h>
#include <time.h>
#include <sys\stat.h>
#include <stdlib.h>
#include <string.h>
#include <sys\stat.h>
#include <dir.h>
#include <io.h>
#include<iostream.h>
#define NSENSORS 10 //number of sensors
#define NSMPL 1 //number of samples to average
#define BADRF 0x30E //A164F (U mes) board adress
#define BADRP 0x300 //A164P (R mes) board adress
#define PATH "C:\\data\\"
#define LOGFILE "C:\\data\\sampling.log"
#define SAMPLING_DELAY 50 //sampling delay [ms]
// all sensors in one sample
// state conditions
#define GETU_ERR 1
#define GETR_ERR 2
#define LOG_FOPEN_ERR 3
#define DAT_FOPEN_ERR 4
#define LOG_WRITE_ERR 5 // LOG file write error
#define DAT_WRITE_ERR 6 // DAT file write error
#define KEYPRESS 7
#define SHT_CNT_OVERFLOW 8
#define SMPL_CNT_OVERFLOW 9
#define BAD_DAT_SIZE 10 //DAT file size incorrect
// counters end sizes
#define MAX_FILE_SIZE MAXLONG //long Max DAT file size
#define SMPL_CNT_MAX MAXLONG/sizeof(sdata) // long Samples counter for DAT file write
#define SHT_CNT_MAX 10 //60*5*1000/SAMPLING_DELAY // long Short samples counter for loging (one at 5 min)
#define NTRY_MAX 9 // int Trying to create new DAT file
#define NFILE_MAX 9 // int Number of DAT files
// sensor constant for Res to Temp convertion
#define ALPFA 0.00375
#define R0 1000.0
#define DELTA 1.605
struct sdata{
char tm[3]; //time
float val[NSENSORS][3]; // all sensor in one sample [sensor][xyz]
float res[NSENSORS]; //resistanse
};
void ZFWriteReg(int reg, int data);
void WatchDog(int WDfunction);
void smpl_printf(struct sdata *psmpl);
void smpl_fprintf(FILE *,struct sdata *);
void GetTime(char* );
void GetDate(int *);
int GetR(float*,int );
int GetU(float*,int, int);
int PrintMes(char* ,char*);
Код C++:
/*
* File: xfile.h
* Purpose: General Purpose File Class
*/
/*
#if !defined(__xfile_h)
#define __xfile_h
#if defined (WIN32) || defined (_WIN32_WCE)
#include <windows.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include "ximadef.h"
class DLL_EXP CxFile
{
public:
CxFile(void) { };
virtual ~CxFile() { };
virtual bool Close() = 0;
virtual size_t Read(void *buffer, size_t size, size_t count) = 0;
virtual size_t Write(const void *buffer, size_t size, size_t count) = 0;
virtual bool Seek(long offset, int origin) = 0;
virtual long Tell() = 0;
virtual long Size() = 0;
virtual bool Flush() = 0;
virtual bool Eof() = 0;
virtual long Error() = 0;
virtual bool PutC(unsigned char c)
{
// Default implementation
size_t nWrote = Write(&c, 1, 1);
return (bool)(nWrote == 1);
}
virtual long GetC() = 0;
virtual char * GetS(char *string, int n) = 0;
virtual long Scanf(const char *format, void* output) = 0;
};
#endif //__xfile_h
Код Delphi:
procedure TDth.Assign(Control: TRichEdit; Data: String);
begin
FDbg := Control;
FData := Data;
end;
procedure TDth.Process;
begin
with FDbg do
begin
SendMessage(Handle, EM_SCROLL, SB_BOTTOM, 0);
Wrap;
end;
end;
function TDth.Wrap: Integer;
var
s, k, i, p: Integer;
PC: array of Integer;
SC: array of TColor;
begin
i := 0;
k := 0;
with FDbg do
begin
// selection
//s := Length( );
s := FDbg.GetTextLen;
// wrapping
p := Pos('<', LowerCase(FData));
if (p > 0) then
begin
Inc(k);
//FData := StringReplace(FData, '<', '<', [rfReplaceAll, rfIgnoreCase]);
SetLength(SC, k);
SetLength(PC, k);
SC[k-1] := $00EFD3B6;
PC[k-1] := p;
end;
p := Pos('>', LowerCase(FData));
if (p > 0) then
begin
Inc(k);
//FData := StringReplace(FData, '>', '>', [rfReplaceAll, rfIgnoreCase]);
SetLength(SC, k);
SetLength(PC, k);
SC[k-1] := Font.Color;
PC[k-1] := p+1;
end;
p := Pos('^e', LowerCase(FData));
if (p > 0) then
begin
Inc(k);
FData := StringReplace(FData, '^e', '', [rfReplaceAll, rfIgnoreCase]);
SetLength(SC, k);
SetLength(PC, k);
SC[k-1] := $001111E1;
PC[k-1] := p;
end;
p := Pos('^w', LowerCase(FData));
if (p > 0) then
begin
Inc(k);
FData := StringReplace(FData, '^w', '', [rfReplaceAll, rfIgnoreCase]);
SetLength(SC, k);
SetLength(PC, k);
SC[k-1] := $000079F2;
PC[k-1] := p;
end;
p := Pos('^c', LowerCase(FData));
if (p > 0) then
begin
Inc(k);
FData := StringReplace(FData, '^c', '', [rfReplaceAll, rfIgnoreCase]);
SetLength(SC, k);
SetLength(PC, k);
SC[k-1] := Font.Color;
PC[k-1] := p;
end;
// default output
if (k = 0) then
begin
Lines.Append(FData);
end else
begin
Lines.Append(FData);
while (i < k) do
begin
SelStart := s + (PC[i] - 1);
SelLength := Length(FData) - (PC[i] - 1);
SelAttributes.Color := SC[i];
Inc(i);
end;
end;
// clear selection
SelStart := 0;
SelLength := 0;
Result := k;
end;
end;
procedure TDth.Execute;
begin
Synchronize(Process);
Terminate;
end;
{ TDebug }
constructor TDebug.Create(AOwner: TComponent);
begin
inherited CreateNew(AOwner, 0);
Self.AlphaBlend := True;
Self.AlphaBlendValue := 220;
with Self do
begin
BorderStyle := bsToolWindow;
Name := 'dbg';
Caption := 'Debugger window';
Height := 280;
Width := 500;
Left := Screen.WorkAreaWidth - Width;// - 10;
Top := Screen.WorkAreaHeight - Height;// - 10;
// events
OnKeyDown := KeyEvent;
OnMouseWheel := MouseWheel;
OnCloseQuery := FormCloseQuery;
OnClose := FormClose;
end;
Logger := TRichEdit.Create(Self);
with Logger do
begin
Parent := Self;
BorderStyle := bsNone;
Align := alClient;
ReadOnly := True;
//Enabled := False;
Color := clBlack;
Font.Size := 7;
Font.Color := $0056D187;
end;
end;
destructor TDebug.Destroy;
begin
inherited Destroy;
end;
function TDebug.MsgLog(Data: String): Integer;
begin
Result := 0;
try
Thread := TDTh.Create;
with Thread do
begin
Assign(Logger, Data);
Priority := tpLower;
Resume;
end;
Result := 1;
except end;
end;
procedure TDebug.SaveLog;
begin
Logger.PlainText := True;
Logger.Lines.SaveToFile( Format( PathFormat('%s.log'), [ TruncExt( PathAppExe ) ] ) );
end;
procedure TDebug.KeyEvent(Sender: TObject; var Key: Word; Shift: TShiftState);
const
PageUp = 33;
PageDown = 34;
begin
//if not (Key in [PageDown, PageUp]) then
//begin
// Debug( Format('Pressed key: %d', [Key]) );
//end;
if (Key = PageUp) then
begin
SendMessage(Logger.Handle, EM_SCROLL, SB_LINEUP, 1);
end;
if (Key = PageDown) then
begin
SendMessage(Logger.Handle, EM_SCROLL, SB_LINEDOWN, 1);
end;
end;
procedure TDebug.MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if (WheelDelta > 0) then
begin
SendMessage(Logger.Handle, EM_SCROLL, SB_LINEUP, 1);
end;
if (WheelDelta < 0) then
begin
SendMessage(Logger.Handle, EM_SCROLL, SB_LINEDOWN, 1);
end;
end;
procedure TDebug.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
g_debug := 0;
end;
procedure TDebug.FormClose(Sender: TObject; var Action: TCloseAction);
begin
g_debug := 0;
end;
Код python:
def sendReportToAdmins( self, player, msg ):
for admin in self.getAdmins():
try:
self.sendMessageToPlayerChat( admin, bigColoredText+' >>>>> YOU HAVE RECEIVED NEW REPORT! <<<<<')
self.sendMessageToPlayerChat( admin, bigColoredText+' > FROM: '+player.getName())
self.sendMessageToPlayerChat( admin, bigColoredText+' > MESSAGE: '+msg)
self.sendMessageToPlayerChat( admin, bigColoredText+' >>>>> YOU HAVE RECEIVED NEW REPORT! <<<<<')
except:
continue
def sendReportFromConsole( self, msg ):
for admin in self.getAdmins():
try:
self.sendMessageToPlayerChat( admin, bigColoredText+' >>>>> YOU HAVE RECEIVED NEW REPORT! <<<<<')
self.sendMessageToPlayerChat( admin, bigColoredText+' > FROM: [Remote console user]')
self.sendMessageToPlayerChat( admin, bigColoredText+' > MESSAGE: '+msg)
self.sendMessageToPlayerChat( admin, bigColoredText+' >>>>> YOU HAVE RECEIVED NEW REPORT! <<<<<')
except:
continue
def sendMedalEvent( self, player, id, level, default = False ):
self.debug('sendMedalEvent(player='+player.getName()+',id='+str(id)+',level='+str(level)+',bool)')
if ((default == False) or player.isAIPlayer()):
return
return host.sgl_sendMedalEvent(player.index, int(id), int(level))
def getPlayers( self, team = None, squad = None):
self.debug('getPlayers(team='+str(team)+',squad='+str(squad)+')')
players = []
for player in bf2.playerManager.getPlayers():
if (not player.isValid()):
continue
if (team and (player.getTeam() != team)):
continue
if (squad and (player.getSquadId() != squad)):
continue
players.append(player)
return players
def getAdmins( self ):
self.debug('getAdmins()')
admins = []
for player in self.getPlayers():
try:
if self.isAdmin(player):
admins.append(player)
else:
continue
except:
continue
self.debug(str(admins))
return admins
def getAdminList( self ):
self.debug('getAdminList()')
i = 0
admins_list = ''
admins_arr = self.getAdmins()
if len(admins_arr) <= 0:
return 'All admins currently offline :('
for admin in admins_arr:
try:
if i < 1:
admins_list = admin.getName()
else:
admins_list += ' | '+admin.getName()
except:
continue
i += 1
self.debug('Admins On-Line: '+admins_list)
return admins_list
def getOtherTeam( self, team ):
if (team == 1):
return 2
else:
return 1
def getPlayersByName( self, name ):
self.debug('getPlayersByName(name='+name+')')
name = name.lower()
found = []
for player in self.getPlayers():
playerName = player.getName().lower()
if (playerName.find(name) > -1):
found.append(player)
return found
def getPlayerByCmd( self, cmd ):
self.debug('getPlayersByCmd(cmd='+cmd+')')
id_use = 0
try:
name = cmd
if len(name) < 4:
name = False
except:
name = False
if (not name):
try:
id = int(cmd)
id_use = 1
except:
id_use = 0
if ((not name) and (id_use <= 0)):
return
players = []
if name:
players = self.getPlayersByName(name)
if ((len(players) == 0) or (len(players) > 1)):
return
player = players[0]
if (id_use >= 1):
player = self.getPlayerByIndex(id)
return player
def getPlayerByContext( self, ctx ):
pname = ctx.getShortName()
player = self.getPlayerByName( pname )
if (player and player.isValid()):
return player
else:
return
def getPlayerByIndex( self, index ):
self.debug('getPlayerByIndex(idx='+str(index)+')')
try:
player = bf2.playerManager.getPlayerByIndex(index)
if (player and player.isValid()):
return player
except:
return
def getPlayersByIndex( self, indexes, wrong = False ):
self.debug('getPlayersByIndex(idxs='+str(indexes)+',bool)')
players = []
for index in indexes:
player = getPlayerByIndex(index)
if player:
players.append(player)
elif wrong:
players.append(index)
return players
def getPlayersNames( self, players ):
self.debug('getPlayersNames(players='+str(players)+')')
names = []
for player in players:
try:
names.append(str(player.getName()))
except:
names.append(str(player))
return names
def getPlayerHash( self, player ):
self.debug('getPlayerHash(player='+player.getName()+')')
id_re = re.compile( "Id:\s+%d\s+-" % player.index )
found = False
for line in host.rcon_invoke( "admin.listPlayers" ).split( '\n' ):
line = line.strip()
match = id_re.search(line)
if match is not None:
found = True
elif found:
return line[len( "CD-key hash:" ):].strip()
return None
Разметка XML:
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<dependency>
<dependentAssembly>
<assemblyIdentity type="Win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*">
</assemblyIdentity>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator"></requestedExecutionLevel>
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!--The ID below indicates application support for Windows Vista -->
<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
<!--The ID below indicates application support for Windows 7 -->
<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
</application>
</compatibility>
</assembly>