Я от клиента отключаюсь так:
delphi Код:
var
NetPing: string; // здесь запомним Нетпинг от клиента, будем сами его посылать
LogOutOk: boolean; // флаг показывающий, что мы отключили клиент
begin
if (ConnectName=Name) and FromServer then begin
case pck[1] of
//****************************************************
#$D3: begin // D3=NetPing:d(kID) на Нетпинг сервера шлем сохранённый пакет Нетпинга от клиента
msg.Lines.Add('S>Пакет NetPing #$D3');
if LogOutOk then begin
buf:=NetPing;
SendToServerEx(Name);
msg.Lines.Add('C>Пакет NetPing #$A8');
end;
end;
end;
end;
//****************************************************
if (ConnectName=Name) and FromClient then begin
case pck[1] of
#$09: begin //C>09=LogoutRequest - выходим ручками из клиента
msg.Lines.Add('S>Пакет LogoutRequest #$09');
// вроде не надо тут их ставить?
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
pck:='';
// шлем s7E=LogOutOk, для отключения клиента
msg.Lines.Add('S>Пакет LogOutOk #$7E');
buf:=#$7E;
SendToClientEx(Name);
LogOutOk:=true;
end;
#$A8: begin // C>A8=NetPing:d(kID)d(PING)d(dta)
msg.Lines.Add('C>Пакет NetPing #$A8');
NetPing:=pck; // запомним его
pck:='';
end;
end;
end;
end.
Цитата:
Сообщение от Amorality
Теперь другая проблема , как я говорила выше 3.2.0 работает у меня только под Камаель , в общем пытюась зайти на сервер La2.theabyss.ru , запускаю ПНХ , снимаю все галочки , кроме первой и второй , запускаю клиент , логинюсь чаром , разворачиваю ПНХ , в списке соединений везде пусто , на вкладке просмотр ни одного пакета нету
|
На TheAbyss x300 работает, только что проверил.
Добавлено через 29 минут
Цитата:
Сообщение от PanAm
Кстати, вот пример почти бот )
|
Где вы такое берете? Ссылку плиз.