Тема: Клиент
Показать сообщение отдельно
Старый 19.03.2014, 10:15   #22
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

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

PHP код:
const
   
nik='Proba';
   

var
   
ctfid,kinteger;
   
   

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

end
;

procedure OnTimer01(SenderTObject);
begin

end
;

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

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

end
;

procedure OnDisonnect(WithClientBoolean); //Вызывается при потере соединения
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 и кнопка "выход" уже реагировала нормально.
__________________
dyh9l вне форума   Ответить с цитированием