[afonbka]

Всем доброе утро. Давно хотелось написать скрипт, который бы отправлял 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.