Так что ли, еще пока не пробывал
Код:
var Timer :TTimer;
procedure Init; //Вызывается при включении скрипта
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@onTimer;
Timer.Enabled:=True;
Timer.Interval:=500;
end;
procedure onTimer(Sender: TObject);
begin
Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 2E 00 68 00 74 00 6D 00 00 00');
SendToServer;
Delay(500);
Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 62 00 2E 00 68 00 74 00 6D 00 00 00');
SendToServer;
Delay(500);
Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 39 00 36 00 32 00 39 00 00 00');
SendToServer;
Delay(500);
Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 33 00 2E 00 68 00 74 00 6D 00 00 00');
SendToServer;
Delay(500);
end;
procedure Free; //Вызывается при выключении скрипта
begin
Timer.Free;
end;