Клиент

[dyh9l]

Сообщение от palvy

О действительно отправил апперинг, а ето "3А", все заработало))), тут такой вопрос:
Шаманил с скриптом и получил работоспособную модель на 50 %, так как надо открыть клиент, ввести лог и пароль, зайти на перса, включить скрипт, потом нажать кнопку выход, но окно не закрывается. ( так как я запускаю л2 постоянно через иг бота то комбинация "ctrl+Q" "убивает" клиент, как бы через диспечер задачь снять процес. Соединение рвется, повторно открываю окно захожу на акаунт, на клиент, нажимаю кнопку выход, окно опять не закрывается, нажимаю контрол+кю( если перед етим не нажимать выход то не работает). и вуаля соединение остается, все работает.
А вот и вопрос что в скрипте не так? Почему надо дважды запускать одного и тогоже перса?
Вот сам скрипт:

PHP код:

const
   nik='Proba';
   

var
   ctfid,k: integer;
   
   

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

end;

procedure OnTimer01(Sender: TObject);
begin

end;

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

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

end;

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

end;



procedure offclient;
begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$7E;
SendToClientEx(nik);
end;

begin
if (connectname=nik) and (fromclient) and (pck[1]=#$00) then offclient;


   

//отправляем ответ на ивент
if k=1 then
          begin
          buf:=hstr('C6 BF 07 00 00 01 00 00 00');
          WriteD(ctfid);
          SendToServerEx(nik); k:=0;
          end;
// читаем айди запроса
    if Fromserver and (ConnectName=nik) and (pck[1]= HStr('F3')) then   

       begin
          ctfid:=readd(102);
          k:=1;
          

       end;


          
end. 


Т.к. я постоянно любил на оффлайне оставлять по 20 окон, я столкнулся с аналогичной проблемой, я думаю это причина конкретно в самих либо методах либо ПХ, потому, что единственное решение, как это помогало исправить, я просто брал скрипт и редактировал в нем любую строчку (хоть просто комментарий добавлял) и сохранял снова, и только после этого снова запускал окно л2 и кнопка "выход" уже реагировала нормально.