[Статья] Создание трейнера!

[VeTaL_UA]

Цитата: Сообщение от Ramsteins В WoW нет хп в таргете,он дает мобу адрес(динамический) и в нем хранятся его кол-во хп.

К любому динамическому адресу можно проложить путь из оффсетов, начиная с базового адреса. Надо только понять, как всё задумано в самой игре

[Relli]

Уважаемые,подскажите,как найти неизвестное значение?

Добавлено через 14 часов 6 минут
Прошу помощи,вместо требуемого текста(по адресу расположен такст) выбивает пустое поле:

var
H : hwnd;
HandleProc,i,Pid : integer;
b : array [0..255] of Char;
rw : dword;
adress : integer;
begin
adress := $028fc0a0 ;
h := FindWindow(nil,'AikaClient');
If h = 0 then
MessageDlg('!', mtwarning,[mbOK],0)
else
GetWindowThreadProcessId(H,@Pid);
HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,Pid);
ReadProcessMemory(HandleProc,ptr(adress),@i,Sizeof(i),rw);
ReadProcessMemory(HandleProc,ptr(i + $00002a78),@i,Sizeof(i),rw);
ReadProcessMemory(HandleProc,ptr(i + $000003b8),@i,Sizeof(i),rw);
ReadProcessMemory(HandleProc,ptr(i + $000000cd),@b,sizeof(b),rw);
Memo1.Lines.add(b);

[VeTaL_UA]

Ramsteins, текст нужно читать циклом. В твоём примере ты читаешь только 1 символ.

[Relli]

VeTaL_UA, считываю я правильно,могу даже скинуть несколько примеров,где я считываю подобным методом текст и все гуд...
Даже если сделать так,то 0 эффекта:

repeat
ReadProcessMemory(HandleProc,ptr(i),@b[p],sizeof(b[p]),rw);
inc(p);
i := i + sizeof(b[p]);
until (ord(p)=0) or (p >=255);
Memo1.Lines.add(b);

[VeTaL_UA]

Цитата: Сообщение от Ramsteins могу даже скинуть несколько примеров,где я считываю подобным методом текст и все гуд...

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

[Relli]

VeTaL_UA, лови

var
Nick : array [0..11] of Char;
rw : dword;
b : integer;
begin
adress := $028fc0a4;
b := 0;                                                      
ReadProcessMemory(HandleProc,ptr(adress),@b,Sizeof(b),rw);   
ReadProcessMemory(HandleProc,ptr(b + $3764),@b,Sizeof(b),rw);
ReadProcessMemory(HandleProc,ptr(b + $2b4),@Nick,12,rw);     
Label12.Caption := Nick;

[Ссылки могут видеть только зарегистрированные пользователи. ]

[VeTaL_UA]

Цитата: Сообщение от Ramsteins лови

Круто, чё Только вот в моём примере читается Unicode, а данный пример его не прочитает Да и лишнего не читает.

[sooqua]

перезалей исходник плиз

[Dvast3264]

Жалко тока на серверах не работает, тока с ботами!

[RenatPro]

Читаем с смещением.

procedure TForm1.Timer1Timer(Sender: TObject);
var
hWin: hWnd;
ProcId: Cardinal;
hProc: THandle;
AdressW: dword; //сюда прочитаем адрес из указателя.
Adress: dword;
readwrite: cardinal;
begin

AdressW:=StrToInt(pchar('$'+PointerEdit.Text));
hWin := StrToInt(hWinedit.Text);
GetWindowThreadProcessId(hWin, @ProcId);
hProc := OpenProcess(Process_All_Access, False, ProcId);
ReadProcessMemory(hProc, pointer(AdressW), @Adress, 4, readwrite); //Читаем адрес из указателя
ReadProcessMemory(hProc, pointer(Adress+$170), @Adress, 4, readwrite); //Прибавляем к адресу смещение нашего значения
ReadProcessMemory(hProc, pointer(Adress+$380), @Adress, 4, readwrite); //Прибавляем к адресу смещение нашего значения
ReadProcessMemory(hProc, pointer(Adress+$214), @Adress, 4, readwrite); //Прибавляем к адресу смещение нашего значения
ReadProcessMemory(hProc, pointer(Adress+$34), @Adress, 4, readwrite); //Прибавляем к адресу смещение нашего значения
ReadProcessMemory(hProc, pointer(Adress+$260), @Adress, 4, readwrite); //Прибавляем к адресу смещение нашего значения
Edit1.Text:=IntToStr(Adress);
CloseHandle(hProc);
end;

Сори уже есть ответ выше) Но этот код под Lazarus)

Добавлено через 12 минут
Кстати есть люди которые дергали значение из Lineagi? Отпишите!

[RenatPro]

Цитата: Сообщение от intehack блин, а что-нибудь посложней слабо? добавлялку денег и так каждый сделать сможет.. покажи лучше на примере, как сделать ESP для CS 1.6, как получить 3д координаты игрока в игровом мире.

Cs не знаю а вот в l2 пишешь в игре /loc смотришь в чате координаты X это первые циферки в чате и вбиваешь в артмани или подобную прогу выбираешь искать с точкой дальше сами разберетесь))

[zoomcat3939]

тема плавно перешла в создание бота Очень радует

[RenatPro]

Цитата: Сообщение от Relli VeTaL_UA, лови var Nick : array [0..11] of Char; rw : dword; b : integer; begin adress := $028fc0a4; b := 0; ReadProcessMemory(HandleProc,ptr(adress),@b,Sizeof(b),rw); ReadProcessMemory(HandleProc,ptr(b + $3764),@b,Sizeof(b),rw); ReadProcessMemory(HandleProc,ptr(b + $2b4),@Nick,12,rw); Label12.Caption := Nick; [Ссылки могут видеть только зарегистрированные пользователи. ]

Почисти есть лишнее не стал редактировать дернул из своего исходника

Цитата: //Получаем текст из памяти procedure TForm1.Timer2Timer(Sender: TObject); var TextProc, PID, numberRead : DWORD; Texthwnd: THandle; TextIpBuf: PWideChar; Textlen: integer; TextipBase: ^dword; before, after: string; begin Texthwnd:=StrToInt(HWND.Text);//окно GetWindowThreadProcessId(Texthwnd, @PID); TextProc:=OpenProcess(PROCESS_VM_READ, False, PID); Textlen := StrToInt(PAnsiChar(SpinEdit1.Text)); TextipBuf := AllocMem(Textlen); TextipBase:=pointer(StrToInt(PAnsiChar('$' + Edit1.Text))); // наш адресс ReadProcessMemory(TextProc, TextipBase, Textipbuf, Textlen, numberRead);//Читаем адрес из указател before:=AnsiToUtf8(string(Textipbuf)); //текст из памяти memo1.text := StringReplace(before, ' ', #13#10, [rfReplaceAll, rfIgnoreCase]); CloseHandle(TextProc); end;

[Dvast]

Цитата: Сообщение от zver-42rus А как бороться с тем что при каждом запуске некоторые из адресов могут меняться?

Просто!!!
Нужно найти указатель, и всё!
Как искать указатель писать не буду, Долго.
Google тебе поможет научится указатели находить.

[RenatPro]

Цитата: Сообщение от Dvast Просто!!! Нужно найти указатель, и всё! Как искать указатель писать не буду, Долго. Google тебе поможет научится указатели находить.

Если просто найди указатель в L2 и опиши как ты его нашел думаю очень много кому будет интересно