Скрипт на автовход после рестарта

[Admin 355]

function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure pressKey(hexCode: BYTE);
begin
  keybd_event(hexCode, 45, 1, 0 );
  delay(200);
end;

procedure mouseClick(x, y, _delay : integer);
begin
  SetCursorPos(x, y);
  mouse_event($2, 0, 0, 0, 0);
  delay(_delay);
  mouse_event($4, 0, 0, 0, 0);
end;

begin
     //login
     pressKey($4C);
     pressKey($4F);
     pressKey($47);
     pressKey($49);
     pressKey($4E);
     //press tab
     pressKey($09);
     //pwd
     pressKey($50);
     pressKey($57);
     pressKey($44);
     //enter
     pressKey($0D);
     delay(1000);
     mouseClick(920, 740, 3000); //клик на соглашение
     delay(1000);
     mouseClick(960, 550, 1000); // клик на "принять сервер"
     delay(1000);
     mouseClick(960, 951, 1000); // кнопка старта на выборе чара. Хотя с этого момента можно уже использовать стандартные функции адреналина.
end.

[SerT 2]

помогите,как реализовать это добро? можно инфу от А до Я пож.

[Intervence 51]

Если вкратце (после беглого осмотра). этот скрипт на уже запущенном окне только работает.

после блока //login надо указывать буквы в hexcode.

(загугли HEX to ASCII converter) в данном примере цифры в скобках: 
 

4c 4f 47 49 4e == LOGIN
50 57 44 == PWD

есть еще вопросы по 

mouseClick(бла, бла, бла)

проще заменить на тот же

pressKey($0D);

так как скорее всего заточено под определенное разрешение и не везде заработает (тыкает ЛКМ по кнопкам, основываясь на абсолютных координатах). Ну и скрипт не полностью автономный получается.

Изменено 23 апреля, 2021 пользователем Intervence

[BlekmoR 0]

Прописал свой логин и пароль  через конвертер. Срипт запускается а затем выключается выдавая звуковые сообщения об ошибке.  Что не так?

[Blitzkrieg 19]

А в случае сбоя - отправит лог\пасс в чат)

 

[Intervence 51]

Выложил скрипт, который я сам использую (был взят в свое время на допожарном форуме)