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

[revi994]

Как например найти скорострельность у автомата?
Как найти координаты головы?

[FarmHitman1]

Вот вопрос. Как можно текст из памяти вывести в label или edit?
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Relli]

FarmHitman1, я попробывал,делал на примере варика,но ошибка в чем-то:

var
  Form1: TForm1;
   WindowName : integer;
 ProcessId : integer;
 ThreadId : integer;
 HandleWindow : Integer;
 b: array [0..255] of WideChar;
 readwrite: dword;
 Const WindowTitle = 'World of Warcraft';
 Address = $00C5F1E0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    WindowName := FindWindow(nil,WindowTitle);
 If WindowName = 0 then
 begin
 MessageDlg('!', mtwarning,[mbOK],0);
 end;
 ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
 HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

 ReadProcessMemory(HandleWindow,ptr(address),@b[0],Sizeof(b),readwrite);

 Memo1.Lines.add(WideCharToString(b));
end;

Результат:

?????????????

Не хочет преобразовывать почему-то

[FarmHitman1]

Ramsteins, аналогично...

Добавлено через 50 минут
Кто может помочь сделать движение мыши по кругу от центра до конца экрана с увеличением радиуса?

[Relli]

А может я просто не корректно указал?Ведь у меня указан лишь адрес(поинтер) без офсета....хотя и найти его не представляется возможным,ибо текст не меняется(ник,раса и тп и тд)

[FarmHitman1]

Ну у меня в принципе текст меняется, я с СЕ не очень дружу И затея была не очень))
А как можно найти хп текущее\максимальное у моба в таргете? о_0

[Relli]

Мои попытки найти постоянный адрес на любой значений(опыт,кол-во денег,хп) увенчались фейлом)))Находит на 1 раз,при рестарте значения теряются....пробывал по таргету...там интересная вещь,адреса всегда начинаются на "28" и даже когда моб умирает,остается(WoW))но опять же,рестарт и фейл...хочется чтобы знающие люди подсказали,как найти постоянный адрес в онлайн игре,где ты не сервер)

[Dinmaite]

Вопрос тут не в том ты сервер или нет. Адресация делится на DMA (динамическое выделение памяти) и не DMA (соответственно статическое выделение памяти).
В DMA программах после перезагрузки меняются указатели на адреса.

Вообще могу посоветовать почитать статьи, из указанных в моей подписи, написаны они под Perfect World но это не критично.

[Relli]

FarmHitman1,сделал(спасибо за исправленные ошибки VeTaL_UA )
Делал для WoW wotlk,показывает ник чара:

var
  Form1: TForm1;
  HandleWindow : integer;
 ProcessId : integer;
 HandleProc : Integer;
 b: array [0..12] of char ;
 str : string;
 readwrite: dword;
  Const WindowTitle = 'World of Warcraft';

procedure TForm1.Button1Click(Sender: TObject);
var
 Address : integer;
begin
address := $00C79D18 ;
HandleWindow := FindWindow(nil,WindowTitle);
 If HandleWindow = 0 then
 begin
 MessageDlg('Запусти Wow!', mtwarning,[mbOK],0);
 end;
 GetWindowThreadProcessId(HandleWindow,@ProcessId);
 HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
ReadProcessMemory(HandleProc,ptr(address),@b,12,readwrite);
Memo1.Lines.add(b);

end;

[FarmHitman1]

Цитата: Сообщение от Ramsteins FarmHitman1,сделал(спасибо за исправленные ошибки VeTaL_UA ) Делал для WoW wotlk,показывает ник чара:

Спасибо огромное. Еще бы кто помог с CE вывести хп моба в таргете, хотя бы текущее...

[Relli]

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

Цитата: procedure TForm1.Button1Click(Sender: TObject); var H : hwnd; HandleProc,b,Pid : integer; rw : dword; const adress = $35D9D128; begin h := FindWindow(nil,'World of Warcraft'); If h = 0 then MessageDlg('Вруби Wow!', mtwarning,[mbOK],0) else GetWindowThreadProcessId(H,@Pid); HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,Pid); ReadProcessMemory(HandleProc,ptr(adress),@b,4,rw); Memo1.Lines.add(inttostr(b)); end;

[FarmHitman1]

Ramsteins, в WoW то все просто, значение хп известно, но у меня то в игре оно скрыто)) В том то вся и проблема, получается находить хп только 1 моба, на таргет не реагирует...

[Relli]

FarmHitman1, для поиска адреса,попробуй заюзать артмани,там просто есть такая вещь,как "стало больше" и стало "меньше"....

[VeTaL_UA]

Цитата: Сообщение от FarmHitman1 получается находить хп только 1 моба, на таргет не реагирует...

Я не уверен, но может WoW не пишет хп моба в таргете отдельно, а просто добавляет флаг таргета в структуру этого моба в общем списке мобов на радаре?

Цитата: Сообщение от Ramsteins procedure TForm1.Button1Click(Sender: TObject); var Address : integer; begin address := $00C79D18 ; HandleWindow := FindWindow(nil,WindowTitle); If HandleWindow = 0 then begin MessageDlg('Запусти Wow!', mtwarning,[mbOK],0); end; GetWindowThreadProcessId(HandleWindow,@ProcessId); HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); ReadProcessMemory(HandleProc,ptr(address),@b,12,re adwrite); Memo1.Lines.add(b); end;

Немного неправильно использована конструкция if..then. Правильнее будет так:

procedure TForm1.Button1Click(Sender: TObject);
var
Address : integer;
begin
address := $00C79D18 ;
HandleWindow := FindWindow(nil,WindowTitle);
 If HandleWindow = 0 then
 begin
 MessageDlg('Запусти Wow!', mtwarning,[mbOK],0);
 end
 Else
 begin
 GetWindowThreadProcessId(HandleWindow,@ProcessId);
 HandleProc := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
 ReadProcessMemory(HandleProc,ptr(address),@b,12,readwrite);
 Memo1.Lines.add(b);
 end;
end;

Таким образом мы не выполняем лишнего при отсутствии окна WoW.

[Relli]

Цитата: Сообщение от VeTaL_UA Я не уверен, но может WoW не пишет хп моба в таргете отдельно, а просто добавляет флаг таргета в структуру этого моба в общем списке мобов на радаре?

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