Cкрипт для изготовление ключей

[Amorality]

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


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

Добавлено через 1 минуту

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.

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