Скрипт реконекта

[HolySaint]

Всем привет и собственно сразу к делу. Слишком быстро закрылась эта тема и не успел задать вопрос по скрипту. Скрипт работает отлично, но есть одно НО! Как его зациклить? Он выполняет работу и отключается. Если его запустить уже в залогиненом окне он пишет логин и пароль в чат. Нужно что бы он был зациклен до бесконечности и не писал в чат данные, а дожидался окна дисконекта и начинал релог. Кто что может предложить?

const
  VK_BACK: cardinal = $8;
  VK_TAB: cardinal = $9;
  VK_RETURN: cardinal = $D;

  login: string = 'YOUR LOGIN';
  password: string = 'YOUR PASSWORD';
  delayTime: cardinal = 2000;

//--
procedure clear;
var
  i: integer;
begin
  for i:=0 to 32 do
    engine.useKey(VK_BACK);
end;

//--
var
  i: integer;
begin
  clear;

  engine.enterText(login);

  delay(delayTime);

  engine.useKey(VK_TAB);

  delay(delayTime);

  engine.enterText(password);

  for i:=0 to 3 do
  begin
    delay(delayTime);

    engine.useKey(VK_RETURN);
  end;
end.

 

[ZedKei]

Помогайте же, ну

 

[adr.bot]

const
VK_BACK: cardinal = $8;
VK_TAB: cardinal = $9;
VK_RETURN: cardinal = $D;

login: string = 'YOUR LOGIN';
password: string = 'YOUR PASSWORD';
delayTime: cardinal = 2000;

//--
procedure clear;
var
i: integer;
begin
for i:=0 to 32 do
engine.useKey(VK_BACK);
end;

//--
var
i: integer;
begin
if engine.status<>lsonline then begin // its when user not online
clear;

engine.enterText(login);

delay(delayTime);

engine.useKey(VK_TAB);

delay(delayTime);

engine.enterText(password);

for i:=0 to 3 do
begin
delay(delayTime);

engine.useKey(VK_RETURN);
end;
end;
end.

i bad understand russ, so i cant understand what you whant say probably this you whant

 

[ZedKei]

@adr.bot, It is necessary to consent to the automatic output + to auto input login + select a hero

 

[savant]

А что EnterText здесь работает? Сарказм же вроде выкладывал скрипт на имитацию нажатия клавиш, чтобы залогиниться.

 

[ZedKei]

@savant, покажи ка

 

[ZedKei]

@adr.bot, Как зациклить этот скрипт? (How to loop this script?)
И возможно ли совместить в другим скриптом?

 

[savant]

@ZedKei, http://rawr.su/topic/120-avtomaticheskij-login/Здесь обсуждалось

const
  VK_BACK: cardinal = $8;
  VK_TAB: cardinal = $9;
  VK_RETURN: cardinal = $D;

  login: string = 'YOUR LOGIN';
  password: string = 'YOUR PASSWORD';
  delayTime: cardinal = 2000;

//--
procedure clear;
var
  i: integer;
begin
  for i:=0 to 32 do
    engine.useKey(VK_BACK);
end;

//--
var
  i: integer;
begin
while true do begin //бесконечный цикл
if engine.status<>lsonline then begin  // its when user not online
  clear;

  engine.enterText(login);

  delay(delayTime);

  engine.useKey(VK_TAB);

  delay(delayTime);

  engine.enterText(password);

  for i:=0 to 3 do
  begin
    delay(delayTime);

    engine.useKey(VK_RETURN);
  end;
end;
end;
end.

 

[savant]

@ZedKei,

const
  VK_BACK: cardinal = $8;
  VK_TAB: cardinal = $9;
  VK_RETURN: cardinal = $D;

  login: string = 'YOUR LOGIN';
  password: string = 'YOUR PASSWORD';
  delayTime: cardinal = 2000;
//--
procedure clear;
var
  i: integer;
begin
  for i:=0 to 32 do
    engine.useKey(VK_BACK);
end;
//--
procedure reconnect;
var
  i: integer;
begin
while true do begin //бесконечный цикл
if engine.status<>lsonline then begin  // its when user not online
  clear;

  engine.enterText(login);

  delay(delayTime);

  engine.useKey(VK_TAB);

  delay(delayTime);

  engine.enterText(password);

  for i:=0 to 3 do
  begin
    delay(delayTime);

    engine.useKey(VK_RETURN);
  end;
end;
end;
end;
//--
begin
Script.NewThread(@reconnect); //reconnect - процедура, в которой выполняется первый скрипт
Script.NewThread(@my_procedure); //my_procedure - процедура, в которой выполняется второй скрипт. ЕЕ необходимо описать выше
end.

 

[ZedKei]

@savant, Спасибо тебе огромное

 

[CMAK]

Почему когда врубаю скрипты на реконект в 5 окнах, дико начинает лагать комп?) и боты тупят, стоят на месте

 

[savant]

@CMAK, попробуй DelayTime увеличить. Измени следующую строку:

delayTime: cardinal = 30000;

 

[CMAK]

попробую, а как сделать еще чтобы после релога он врубал интерфейс бота и карту подгружал?

 

[savant]

@CMAK,

begin
if FileExists(ExePath+'Settings\cx.xml') then Engine.LoadConfig(ExePath+'Settings\cx.xml'); // Если файл с настройками существует, то загрузить его
Engine.FaceControl(0,true); //Интерфейс бота. true - врубить, false - отключить
Script.NewThread(@reconnect); //reconnect - процедура, в которой выполняется первый скрипт
Script.NewThread(@my_procedure); //my_procedure - процедура, в которой выполняется второй скрипт. Ее необходимо описать выше
end.

Вот. Интерфейс бота включаешь через FaceControl. Можешь включить его сразу же в основном потоке, как я написал выше. После релога повторно его запускать не потребуется. Путь до файла настроек (*.xml) подставь свой.

 

[CMAK]

delayTime: cardinal = 30000;

не помогает я хз в чем дело) сразу проц грузится на 100% , все плывет и боты тупят) у тебя эти скрипты также на каждое окно юзаются? не грузят проц?

 

[savant]

@CMAK, я не пользуюсь этим скриптом
А у тебя точно из-за этого скрипта тупит? Может дело в другом потоке?

 

[CMAK]

@savant, ну я вообще скрипты не юзал обычно , все на интерфейсе бота , но т.к. надоело вылетать - заюзал этот скрипт , без него то норм)
лол, я походу понял) Я просто сделал в окнах минимальную нагрузку и скорость ( в основных настрйоках адреналина) походу из-за этого лагает