OutGame Бот на ПакеХак!

[rootKit]

PHP код:

Const
  Name='kolobok';
var
ok, srvconst, pingid, ping: integer;



procedure Init; //Вызывается при включении скрипта


begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
ok:=0
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения

begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;




Procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
 if (ok=0) and fromclient and (ConnectName=Name) and (pck[1]=#$A8) then
 begin
 srvconst:=ReadD(10);
 Say('Константа сервера получена, можно выключать клиент=');
 pck:='';
 ok:=1;
 end;


 if (ok=1) and FromServer and (ConnectName=Name) and (pck[1]=#$D3) then
 begin
 pingid:= ReadD(2);

 ping:= 31 + (int(random()*3));
 buf:= #$A8;
 WriteD(pingid);
 WriteD(ping);
 WriteD(srvconst);
 SendToServerEx(Name);
 say(inttostr(ping));
 end;
end. 


Супер. спасибо работает. Но есть одно но. Когда я выключаю клиент ПакетХак начинает в окно лога писать WSA error 10038/284 и очень сильно загружать процессор. Можно ли както избежать вывода этого сообщения и соответственно разгрузить проц?