что-то набросал, не знаю точно что получилось, не тестил, но в любом случае затея твоя херня)
PHP код:
const
nik='ник';
var
timer : TTimer;
packet:array of string;
i,j:integer;
procedure OnTimer(Sender: TObject);
begin
for i:=1 to 20 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');// собственно твои пакеты
packet[2]:=Hstr('D0 0F 00 D3 04 00 00 92 01 00 00');
packet[3]:=Hstr('D0 00 00 00 00 00');
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=300; //время задержки
j:=1;
i:=1;
end;
procedure Free;
begin
timer.free;
end;
begin
end.