Показать сообщение отдельно
Старый 18.07.2009, 01:16   #4
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

8tomat8,
Почему? В ПНХ же есть ф-ции отключения клиента.


guplen,
Можно, но тогда придется не закрывать ПНХ и комп не вырубать).

Добавлено через 1 минуту
DELPHI Код:
const name = 'НИК ВАШЕГО ЧАРА'; var   NetPing: string;   LogOutOk: boolean; begin   if (ConnectName=name) and FromServer then begin     case pck[1] of       #$D3: begin         if LogOutOk then begin           buf:=NetPing;           SendToServerEx(name);         end;       end;     end;   end;   //****************************************************   if (ConnectName=name) and FromClient then begin     case pck[1] of       #$09: begin         NoFreeOnClientDisconnect;         NoFreeOnServerDisconnect;         pck:='';         buf:=#$7E;         SendToClientEx(name);         LogOutOk:=true;       end;       #$A8: begin                NetPing:=pck;         pck:='';       end;     end;   end; end.

А вот собсно сам скрипт на отключение клиента.

Последний раз редактировалось Amorality, 18.07.2009 в 01:16. Причина: Добавлено сообщение
Amorality вне форума   Ответить с цитированием
За это сообщение Amorality нажился спасибкой от: