Что нада добавить в скрипт, чтобы он каждые 3000 мсек отпрвлял пакет который я ему задам
например (что нада сюда добавить)
Цитата:
begin
buf:=hstr('ХХ ХХ ХХ ХХ');
SendToServer;
buf:=hstr('Х1 Х1 Х1 Х1');
SendToServer;
end;
|
потом как привязать сюда остановку по нажатию *1*
например вот это
Цитата:
begin
if FromClient and (ConnectName=Name)and (pck[1]=#$38) then
if (pck[2]=#$31) and (pck[3]=#$00) then
begin
pck:='';
bStop;
exit;
end;
|
или луче не 1 а пакет от сервера например *Соц.Да*
('5A 06 00 00 00')