delphi Код:
const
r1='2B 7E 75 74 6F 6A 71 32 00 6C 00 61 00 63 00 6B FB 27 75 11 6F 0B 71 04 00 68 00 00 00';
r2='2B 7E 75 74 6F 6A 71 32 00 6C 00 61 00 63 00 6B FB 27 75 11 6F 0B 71 04 00 68 00 00 00';
r3='ляляляля';
r4='ляляляля';
r5='ляляляля';
var
timer1:=TTimer.
x1:integer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=false;
timer1.interval:=2000;
x1:=1;
end;
procedure OnTimer(Sender:TObject);
begin case x1 of
1:begin buf:=HStr(r1);
SendToServer;
inc(x1);
end;
2:begin buf:=HStr(r1);
SendToServer;
inc(x1);
end;
3:begin buf:=HStr(r1);
SendToServer;
inc(x1);
end;
4:begin buf:=HStr(r1);
SendToServer;
timer1.enabled:=false;
x1:=1;
end;
end;
end;
begin //здесь пишешь какое-нить условие, при котором делаешь Timer1.enabled:=true;
end.
А как таймек запустить между отправками вот что я не понимаю...примеры я смотрел, но многое мне не понятно...вот и прошу показать на моём скрипте...
QaK: Поправил твой скрипт, а вообще в топе "Да будет бот", туева хонна примерофф, так что нефиг, учи матчасть, как гриццо.