- Регистрация
- 1 Мар 2015
- Сообщения
- 1,399
- Баллы
- 155
Код:
program L2Bot;
uses
Windows;
const
L2WindowCaption = 'Lineage II';
L2HPAddress = $12345678; //адрес памяти для значения здоровья персонажа
var
L2WindowHandle: HWND;
L2HPValue: Integer;
begin
L2WindowHandle := FindWindow(nil, L2WindowCaption); //находим окно игры
if L2WindowHandle = 0 then
begin
WriteLn('Ошибка: окно игры не найдено.');
Exit;
end;
//читаем значение здоровья персонажа из памяти процесса игры
ReadProcessMemory(L2WindowHandle, Ptr(L2HPAddress), @L2HPValue, SizeOf(L2HPValue), nil);
WriteLn('Значение здоровья персонажа: ', L2HPValue); //выводим значение здоровья персонажа
end.