Всем Привет! Решил написать статью как сделать рабочего бота для Lineage 2.
Хотя по другому можно сказать это мини кликер под него, нежели полноценный бот.
Ниже приведен код, который способен брать название окна в текстовом поле Edit1,
в нашем случаи Lineage 2, а затем по кнопке отправлять нажатие клавиш.
Код
procedure TForm1.FormActivate(Sender: TObject);
begin
wnd := FindWindow(nil, PChar(FrmMain.Edit13.Text));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//посылаем окну нажатие клавиши!
PostMessage(wnd, WM_KEYDOWN, VK_F1, 0);
end;
Компонент Wininet посылает нажатие клавиш методом PostMessage.
Пример ниже:
Код
PostMessage(h, WM_KEYDOWN, Ord(StringList[i][1]) , 0);//Шлется единица
PostMessage(h, WM_KEYUP, Ord(StringList[i][1]) , 0);
Я думаю вы меня поняли, можно запихнуть в таймер тот же и посылать нажатие
клавиш в неактивное окно Lineage 2.