У меня такой вопрос. как зделать чтоб вот этот, делал тоже самое только на ВСЕ ники чаров которые забиты в l2phx, без указания.
const
Name='Nickers'; //Ник
N=3; //Сколько раз послать пакет
var
timer, timer2 : TTimer;
packet:array[1..N] of string;
j:integer;
procedure OnTimer(Sender: TObject);
begin
timer2.enabled:=false;
inc(j);
buf:=packet[j];
SendToServerEx(Name);
if j=N then
begin
timer2.enabled:=true;
j:=0;
timer.enabled:=false;
end;
end;
procedure OnTimer2(Sender: TObject);
begin
timer.enabled:=true;
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:=true;
timer.interval:=1000; //1 сек
timer2:=TTimer.Create(nil);
timer2.OnTimer:=@OnTimer2;
timer2.enabled:=false;
timer2.interval:=6000; //6 сек
j:=0;
end;
procedure Free;
begin
timer.free;
timer2.free;
end;
begin
end.
|