ВСЕ ЗДЕЛАЛ
const
nick = 'NameAlreadyExis';
var
A : Integer ;
Procedure init ;
begin
a:=0;
end;
begin
if (fromServer) and (connectname=nick) and (pck[1]=#$F3) then
begin
if (fromServer) and (connectname=nick) and (pck[1]=#$F3) and (pck = HStr('F3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00')) then
begin
inc(a,1);
SendMSG('Пришло пакетов..') ;
delay(500) ;
SendMSG(vartostr(A));
end ; ;
end ;
end.
вот подсчет) токо других пакетов ну вам нада если что тут основа
Добавлено через 12 минут
уже чуть понимаю в ЕТОМ))))))))
Последний раз редактировалось goodvin1709, 21.02.2011 в 20:30.
Причина: Добавлено сообщение
|