Проблемы с Auto-Potter'oм Delphi 7(нажатие клавиш).

[JeckAtlas]

Решили проблему(спойлер)

Всем доброго времени суток. Проблема следующая: Когда запускаю исполняемый файл проекта присоединение к клиенту проходит нормально, но когда нажимаю кнопку "Вкл" вылетает ошибка, причем ошибка не клиента(светофор), как обычно, а ошибка в программе. Ошибка: "is not valid integer value.

var
Form1: TForm1;
KlientWindow:HWND;
ProcessId,HPMinV,MPMinV,hProcess:Integer;
const
BA = $B8FBCC;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
KlientWindow := FindWindow(nil, PChar('Perfect World')); GetWindowThreadProcessId(KlientWindow,@ProcessId); 
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
HPMinV := StrToInt(Edit1.Text);
MPMinV := StrToInt(Edit3.Text);
Timer1.Enabled := True;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
WMHP,WMMP,WHP,WMP,PrOM1,NoB:Dword;
MHP,MMP,HP,MP:integer;
HPKey,MPKey:TCaption;
begin try
ReadProcessMemory (hProcess, Pointer(BA), @PrOM1, sizeof(PrOM1), NoB);
ReadProcessMemory (hProcess, Pointer(PrOM1+$1C), @PrOM1, sizeof(PrOM1), NoB);
ReadProcessMemory (hProcess, Pointer(PrOM1+$34), @PrOM1, sizeof(PrOM1), NoB);
ReadProcessMemory (hProcess, Pointer(PrOM1+$494), @WHP, sizeof(WHP), NoB);
HP := Integer(WHP);
ReadProcessMemory (hProcess, Pointer(PrOM1+$498), @WMP, sizeof(WMP), NoB);
MP := Integer(WMP);
ReadProcessMemory (hProcess, Pointer(PrOM1+$4DC), @WMHP, sizeof(WMHP), NoB);
MHP := Integer(WMHP);
ReadProcessMemory (hProcess, Pointer(PrOM1+$4E0), @WMMP, sizeof(WMMP), NoB);
MMP := Integer(WMMP);
except
HPKey := ComboBox1.Text;
MPKey := ComboBox2.Text;
if MP < MPMinV then
SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0);
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0);
end;




end;
end.

Еще порос: Как заставить бота нажимать клавишу, которую он получит из ComboBox?

Новая проблема: Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?

[dwa83]

ProcessId,HPMinV,MPMinV,hProcess:Integer;
префикс h в имени переменной ставят, чтоб далее не перепутать её тип, h - Handle
hProcess: THandle;

Цитата: Сообщение от JeckAtlas Как заставить бота нажимать клавишу

Посылать событие нажатия клавиши окну клиента, PostMessage или SendMessage

Добавлено через 2 минуты
или использовать инжект или пакет того действия, которое нужно выполнить по нажатию клавиши

[BritishColonist]

Цитата: Сообщение от JeckAtlas procedure TForm1.Button1Click(Sender: TObject); begin KlientWindow := FindWindow(nil, PChar('Perfect World')); GetWindowThreadProcessId(KlientWindow,@ProcessId); hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); HPMinV := StrToInt(Edit1.Text); MPMinV := StrToInt(Edit3.Text); Timer1.Enabled := True; end;

Выделил ошибку. У вас, судя по всему, один из этих Edit оказался пустым.

[JeckAtlas]

Цитата: Сообщение от dwa83 Посылать событие нажатия клавиши окну клиента, PostMessage или SendMessage

Спасибо, что отозвался, однако, если внимательно посмотреть на мой код, то понятно , что я знаю о SendMessage, но мне нужно получить название клавиши, которую нажимать из [Ссылки могут видеть только зарегистрированные пользователи. ]... А как вместо кода клавиши(типа VK_F1) вставить переменную, полученную из ComboВox'a я не знаю. В этом собственно и вопрос.

Цитата: Сообщение от BritishColonist Выделил ошибку. У вас, судя по всему, один из этих Edit оказался пустым.

Большое спасибо, действительно помогло, теперь появилась другая проблема... Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?

[Smertig]

Цитата: Сообщение от JeckAtlas Большое спасибо, действительно помогло, теперь появилась другая проблема... Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?

Попробуй сделать не нажатие клавиши при нужном количестве маны, а какой-нибудь msgbox, вывод в консоль или т.д. Чтобы понять, не работает нажатие клавиши или считывание маны.

[fds255]

Цитата: Сообщение от JeckAtlas Теперь он просто не нажимает на клавишу, при нужном количестве маны(тестирую на ней) он ничего не нажимает. В чем может быть причина?

ПОПРОБУЙ ЗАМЕНИТЬ КОД:

...
if MP < MPMinV then 
SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0);
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0); 
end;
...

НА:

...
if MP < MPMinV then 
begin
SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0); 
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0);
end;
 end;
...

Delphi очень чувствителен к описанию блоков begin...end !

Цитата: Сообщение от JeckAtlas но мне нужно получить название клавиши, которую нажимать из ComboBox... А как вместо кода клавиши(типа VK_F1) вставить переменную, полученную из ComboВox'a я не знаю. В этом собственно и вопрос.

Как-то так:

Вставляешь в ComboBox значения:
-
F1
...
9


ИСПОЛЬЗУЕШЬ ФУНКЦИЮ:

function knopka(index:integer):integer;
begin
case index of
0:result:=0;
1:result:=$70;     // F1
2:result:=$71;     // F2
3:result:=$72;     // F3
4:result:=$73;     // F4
5:result:=$74;     // F5
6:result:=$75;     // F6
7:result:=$76;     // F7
8:result:=$77;     // F8

9:result:=$31;      // 1
10:result:=$32;     // 2
11:result:=$33;     // 3
12:result:=$34;     // 4
13:result:=$35;     // 5
14:result:=$36;     // 6
15:result:=$37;     // 7
16:result:=$38;     // 8
17:result:=$39;     // 9
end;

end;

И ЖМЕШЬ:

...
SendMessage(KlientWindow, WM_KEYDOWN, knopka(ComboBox1.ItemIndex), 0);
SendMessage(KlientWindow, WM_KEYUP, knopka(ComboBox1.ItemIndex), 0);
...

[JeckAtlas]

Цитата: Сообщение от fds255 ПОПРОБУЙ ЗАМЕНИТЬ КОД: ... if MP < MPMinV then SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0); SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0); end; ... НА: ... if MP < MPMinV then begin SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0); SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0); end; end; ... Delphi очень чувствителен к описанию блоков begin...end !

Увы... Не помогло...

[fds255]

JeckAtlas,

Тогда попробуй в Button1Click добавить пару строк:

const
unfreeze1: DWord=$01B0;
unfreeze2: DWord=1;


procedure TForm1.Button1Click(Sender: TObject);
begin
KlientWindow := FindWindow(nil, PChar('Perfect World')); GetWindowThreadProcessId(KlientWindow,@ProcessId);
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
HPMinV := StrToInt(Edit1.Text);
MPMinV := StrToInt(Edit3.Text);

WriteProcessMemory(hProcess,ptr($00436986),@unfree ze1,2,NoB);
WriteProcessMemory(hProcess,ptr($00B9070C),@unfree ze2,1,NoB);

Timer1.Enabled := True;
end;

[Ginrey]

Цитата: Сообщение от JeckAtlas Спасибо, что отозвался, однако, если внимательно посмотреть на мой код, то понятно , что я знаю о SendMessage, но мне нужно получить название клавиши, которую нажимать из ComboBox... А как вместо кода клавиши(типа VK_F1) вставить переменную, полученную из ComboВox'a я не знаю. В этом собственно и вопрос.

если уж хочется сделать именно через ComboBox(Далее "CB") , то могу дать совет создать 2 CB. У каждой клавиши есть собственный код в первом CD дать описание - название клавиши, а во втором ее код, и при отправки SendMessage или PostMessage использовать номер кнопки из второго СВ

Надеюсь понятно выразился, извиняюсь если что-то написано несколько неграмотно

Добавлено через 2 минуты
fds255, а зачем по адресу записывать вот это значение unfreeze1: DWord=$01B0; если разморозка и так была выполнена записью ниже

[fds255]

Цитата: Сообщение от Ginrey а зачем по адресу записывать вот это значение unfreeze1: DWord=$01B0; если разморозка и так была выполнена записью ниже

По адресу $00B9070C находится флаг, у которого есть свойство меняться, поэтому мы меняем функцию по адресу $00436986:

Оригинал: TEST AL,AL - байткод $C084
Меняем на: MOV AL,1 - байткод $01B0

Это позволяет размораживать клиент на все время, пока живет процесс.

[Ginrey]

fds255, ну у каждой версии клиента будет свой адрес и можно спокойно нопом заменить

[fds255]

Цитата: Сообщение от Ginrey ну у каждой версии клиента будет свой адрес и можно спокойно нопом заменить

Разницы особой нет, что и как делать, цель в итоге одна: разморозить окно, а как этого добиться, каждый выбирает сам.