ошибочка в скрипте
const
part='01 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00 03 1B 01 10 E0 02 00 00 01 00 00 00 00 00 00 00';
begin
buf:=#$37;
WriteD(ReadD(10));
buf:=buf+HStr(part);
SendtoServer;
end.
Спасибо форуму , добавил строчку на условие пакета If FromServer and (pck(1)=#$06) then begin и спам прекратился.
Тему можно закрывать .
Последний раз редактировалось bazoooka, 21.08.2012 в 15:11.
|