Привет всем.
Помогите пожалуйста со скриптом. Он простенький, но без таймера у меня не получилось, а в таймере я не пойму как реализовать.
В общем вот скрипт без таймера:
delphi код
begin
if FromClient and (pck=HStr('B2 00 57 71 FF 00 33 04 3E 04 00 00')) then //Пакет активации
begin
buf:=HStr('CC 00 57 6B FF 77 95 06 00 00');
SendToServer;
buf:=HStr('9A 00 57 59 FF 0C 0D 00 00 01 00 01 00 77 95 06 00 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
if FromServer and (ReadC(1)=$B7) and (ReadC(14)=$77) and (ReadC(22)=$00) then
begin
buf:=HStr('9A 00 57 59 FF 0C 0D 00 00 02 00 01 00 77 95 06 00 01 00 00 00 00 00 00 00');
SendToServer;
buf:=HStr('B2 00 57 71 FF 00 33 04 3E 04 00 0'); // пакет активации
SendToServer;
end;
end.
В общем пакет активации в 1-м действии ( в начале ) и во 2-м ( в конце ) одинаковый. Но Скрипт не начинает эту цикличность, когда пакет активации посылается через л2пх, скрипт будто его не замечает. Вот как это в таймере реализовать не знаю, знаю только как с часиками, но мне интервалы не нужны, вот и не пойму.