|
Пишем простой Auto-Potter для Perfect World [Delphi 7] - Разработка ПО для Perfect World - Бюро разработчиков Zhyk.Ru: создание ботов, снифферов и прочих программ для Perfect World |
19.08.2014, 11:34
|
#46
|
|
|
|
Пехотинец
|
Регистрация: 02.08.2009
Сообщений: 57
Популярность: 417
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
|
|
08.08.2017, 14:59
|
#47
|
|
|
|
Разведчик
|
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
Цитата: |
|
|
|
|
|
|
|
|
ReadProcessMemory (hProcess, Pointer($E45524), @WHP, sizeof(WHP), NoB); // BA
ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB); // GA
ReadProcessMemory (hProcess, Pointer(WHP+$34), @WHP, sizeof(WHP), NoB); // GA+34
ReadProcessMemory (hProcess, Pointer(WHP+$4CC), @WHP, sizeof(WHP), NoB); // GA+34+4CC |
|
|
|
|
|
Вот оффсеты с правильным колличеством хп, а вот код, в котором почему отображается не верно, подскажите пожалуйста в чем дело
|
|
|
08.08.2017, 16:56
|
#48
|
|
|
|
Пехотинец
|
Регистрация: 16.07.2013
Сообщений: 60
Популярность: 1754
Сказал(а) спасибо: 184
Поблагодарили 28 раз(а) в 17 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
|
|
08.08.2017, 17:08
|
#49
|
|
|
|
Разведчик
|
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
|
|
08.08.2017, 17:21
|
#50
|
|
|
|
Пехотинец
|
Регистрация: 16.07.2013
Сообщений: 60
Популярность: 1754
Сказал(а) спасибо: 184
Поблагодарили 28 раз(а) в 17 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
|
|
08.08.2017, 17:36
|
#51
|
|
|
|
Разведчик
|
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
|
|
08.08.2017, 17:54
|
#52
|
|
|
|
Пехотинец
|
Регистрация: 16.07.2013
Сообщений: 60
Популярность: 1754
Сказал(а) спасибо: 184
Поблагодарили 28 раз(а) в 17 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
Цитата: |
|
|
|
|
|
|
|
|
|
возможно в этом и проблемы, я пробовал по-разному
Также пробовал окно с пв переименовать в Perfect World через windows renamer, возможно в handle и кроется моя проблема, но в делфи я не силен и не могу понять где именно
|
|
|
|
|
|
Попробуйте искать окна так (адреса свои подставить). В ComboBox будут все ники персонажей с запущенных окон. Соответственно процедуру кинуть на создание формы.
Код:
procedure FindClientPW; // Поиск запущенных Клиентов PW
var
Hndl,Nick,Cl:array[0..255] of Char;
ibuf,BC,hProcess, NoB:DWord;
i, onF:Integer;
const
BA=$DA433C;
begin
i:=0;
Wnd:=FindWindow(nil,nil);
while Wnd<>0 do
begin
GetClassName(Wnd,Cl,100);
if Cl='ElementClient Window' then
begin
GetWindowText(Wnd,Hndl,SizeOf(Hndl));
GetWindowThreadProcessId(Wnd,@window[i]);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,window[i]);
ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$28),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$6F4),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf),@Nick,sizeof( Nick),BC);
Form1.ComboBox1.Items.Add(Nick);
window[i] := Wnd;
inc(i);
end;
Wnd:=GetNextWindow(Wnd,GW_HWNDNEXT);
Application.ProcessMessages;
end;
CloseHandle(hProcess);
end;
и смотреть хп так (адреса свои подставить)
Код:
var
WHP, PID, NoB: DWord;
Wnd: Thandle;
HP: Integer;
FID: array[0..10] of THandle;
Wnd:=FID[Form1.ComboBox1.ItemIndex];
GetWindowThreadProcessid(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
ReadProcessMemory (hProcess, Pointer(base), @WHP, sizeof(WHP), NoB);
ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB);
ReadProcessMemory (hProcess, Pointer(WHP+$28), @WHP, sizeof(WHP), NoB);
ReadProcessMemory (hProcess, Pointer(WHP+$5A4), @WHP, sizeof(WHP), NoB);
HP := Integer(WHP);
|
|
|
08.08.2017, 18:12
|
#53
|
|
|
|
Разведчик
|
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
Цитата: |
|
|
|
|
|
|
|
|
|
Попробуйте искать окна так (адреса свои подставить). В ComboBox будут все ники персонажей с запущенных окон. Соответственно процедуру кинуть на создание формы.
Код:
procedure FindClientPW; // Поиск запущенных Клиентов PW
var
Hndl,Nick,Cl:array[0..255] of Char;
ibuf,BC,hProcess, NoB:DWord;
i, onF:Integer;
const
BA=$DA433C;
begin
i:=0;
Wnd:=FindWindow(nil,nil);
while Wnd<>0 do
begin
GetClassName(Wnd,Cl,100);
if Cl='ElementClient Window' then
begin
GetWindowText(Wnd,Hndl,SizeOf(Hndl));
GetWindowThreadProcessId(Wnd,@window[i]);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,window[i]);
ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$28),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf+$6F4),@ibuf,sizeof(ibuf),BC);
ReadProcessMemory(hProcess,ptr(ibuf),@Nick,sizeof( Nick),BC);
Form1.ComboBox1.Items.Add(Nick);
window[i] := Wnd;
inc(i);
end;
Wnd:=GetNextWindow(Wnd,GW_HWNDNEXT);
Application.ProcessMessages;
end;
CloseHandle(hProcess);
end;
и смотреть хп так (адреса свои подставить)
Код:
var
WHP, PID, NoB: DWord;
Wnd: Thandle;
HP: Integer;
FID: array[0..10] of THandle;
Wnd:=FID[Form1.ComboBox1.ItemIndex];
GetWindowThreadProcessid(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
ReadProcessMemory (hProcess, Pointer(base), @WHP, sizeof(WHP), NoB);
ReadProcessMemory (hProcess, Pointer(WHP+$1C), @WHP, sizeof(WHP), NoB);
ReadProcessMemory (hProcess, Pointer(WHP+$28), @WHP, sizeof(WHP), NoB);
ReadProcessMemory (hProcess, Pointer(WHP+$5A4), @WHP, sizeof(WHP), NoB);
HP := Integer(WHP);
|
|
|
|
|
|
Как найти смещение с ником персонажа?
|
|
|
08.08.2017, 18:19
|
#54
|
|
|
|
Пехотинец
|
Регистрация: 16.07.2013
Сообщений: 60
Популярность: 1754
Сказал(а) спасибо: 184
Поблагодарили 28 раз(а) в 17 сообщениях
|
Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 14:21.
|
|