Показать сообщение отдельно
Старый 27.02.2011, 12:42   #4
Новичок
 
Регистрация: 17.01.2011
Сообщений: 18
Сказал Спасибо: 1
Имеет 2 спасибок в 2 сообщенях
червь пока неопределено
По умолчанию

что-то набросал, не знаю точно что получилось, не тестил, но в любом случае затея твоя херня)
PHP код:
const
  
nik='ник';

var
  
timer TTimer;
  
packet:array of string;
  
i,j:integer;

procedure OnTimer(SenderTObject);
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


Последний раз редактировалось червь, 27.02.2011 в 13:51.
червь вне форума   Ответить с цитированием