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 и очень сильно загружать процессор. Можно ли както избежать вывода этого сообщения и соответственно разгрузить проц?