Всем доброе утро. Давно хотелось написать скрипт, который бы отправлял 3 пакета с задержкой между каждым 1 секунда, и скрипт повторял ето делать каждые 6 минут. Нашел пример скрипта, который будет отправлять пакеты каждые 1 сек, но нужно прикрутить таймер, который бы приводил скрипт в действие каждые 6 минут. Особо благодарен всем, кто хотябы попытается помоч. Вот пример.
Код:
const
nik='ник';
var
timer : TTimer;
packet:array of string;
i,j:integer;
procedure OnTimer(Sender: TObject);
begin
for i:=1 to 999 do begin //сколько раз отправлять пакеты
for j:=1 to length(packet) do begin
buf:=packet[j];
sendtoserverex(nik);
end;
end;
end;
procedure Init;
begin
packet[1]:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // 1 пакет
packet[2]:=Hstr('D0 0F 00 D3 04 00 00 92 01 00 00'); // 2 пакет
packet[3]:=Hstr('D0 00 00 00 00 00'); // 3 пакет.
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=1000; //время задержки между отправкой пакетов.
j:=1;
i:=1;
end;
procedure Free;
begin
timer.free;
end;
begin
end.