[Статья] Пишем простой Auto-Potter для Perfect World [Delphi 7] - Страница 4 - Zhyk.Ru Forums
Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.Ru LIVE! Реклама на Zhyk.Ru Доска почета top.zhyk.ru (beta) Премиум-аккаунт

Пишем простой Auto-Potter для Perfect World [Delphi 7]

-

Разработка ПО для Perfect World

- Бюро разработчиков Zhyk.Ru: создание ботов, снифферов и прочих программ для Perfect World

Ответ
 
Опции темы Опции просмотра
Старый 19.08.2014, 11:34   #46
 Пехотинец
Аватар для ToRcH2565
 
ToRcH2565 скоро будет известенToRcH2565 скоро будет известенToRcH2565 скоро будет известенToRcH2565 скоро будет известенToRcH2565 скоро будет известен
Регистрация: 02.08.2009
Сообщений: 57
Популярность: 417
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от iGeshaПосмотреть сообщение
А может компилятор-таки думает, что HostPlayerStruct и hostplayerstruct - это разные вещи? Аналогично с Hp и hp.
Ведь с константой GameRun нет проблем, т.к. она и объявляется и используется в одном и том же написании...

Может стоит знать(или пытатся узнать) инструменты которыми пользуемся?) Делфи еще от прародителей(аля паскаль) получила РеГиСтРоНеЗаВиСиМыЕ имена переменных.
  Ответить с цитированием
Старый 08.08.2017, 14:59   #47
 Разведчик
Аватар для f0gest
 
f0gest на правильном путиf0gest на правильном пути
Регистрация: 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
 Пехотинец
Аватар для DevZI
 
DevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражания
Регистрация: 16.07.2013
Сообщений: 52
Популярность: 1754
Сказал(а) спасибо: 181
Поблагодарили 26 раз(а) в 16 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Вот оффсеты с правильным колличеством хп, а вот код, в котором почему отображается не верно, подскажите пожалуйста в чем дело

Для руоффа актуален другой BA - E4BAB0
  Ответить с цитированием
Старый 08.08.2017, 17:08   #49
 Разведчик
Аватар для f0gest
 
f0gest на правильном путиf0gest на правильном пути
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от DevZIПосмотреть сообщение
Для руоффа актуален другой BA - E4BAB0

Я тестил на фришке, BA там верный
  Ответить с цитированием
Старый 08.08.2017, 17:21   #50
 Пехотинец
Аватар для DevZI
 
DevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражания
Регистрация: 16.07.2013
Сообщений: 52
Популярность: 1754
Сказал(а) спасибо: 181
Поблагодарили 26 раз(а) в 16 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Я тестил на фришке, BA там верный

А как Вы указываете программе с какого окна читать ХП?
ПС попробуйте запустить от админа
  Ответить с цитированием
Старый 08.08.2017, 17:36   #51
 Разведчик
Аватар для f0gest
 
f0gest на правильном путиf0gest на правильном пути
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от DevZIПосмотреть сообщение
Для руоффа актуален другой BA - E4BAB0

Цитата:
Сообщение от DevZIПосмотреть сообщение
А как Вы указываете программе с какого окна читать ХП?
ПС попробуйте запустить от админа

возможно в этом и проблемы, я пробовал по-разному
Цитата:
KlientWindow := FindWindow(nil, PChar('Perfect World')); //Находим Handle окна
GetWindowThreadProcessId(KlientWindow,@ProcessId); //Получаем И.П.
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); //Открываем процесс с возможностью записи
Timer1.Enabled := True;

Также пробовал окно с пв переименовать в Perfect World через windows renamer, возможно в handle и кроется моя проблема, но в делфи я не силен и не могу понять где именно
  Ответить с цитированием
Старый 08.08.2017, 17:54   #52
 Пехотинец
Аватар для DevZI
 
DevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражания
Регистрация: 16.07.2013
Сообщений: 52
Популярность: 1754
Сказал(а) спасибо: 181
Поблагодарили 26 раз(а) в 16 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от f0gestПосмотреть сообщение
возможно в этом и проблемы, я пробовал по-разному

Также пробовал окно с пв переименовать в 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
 Разведчик
Аватар для f0gest
 
f0gest на правильном путиf0gest на правильном пути
Регистрация: 08.01.2013
Сообщений: 6
Популярность: 171
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от DevZIПосмотреть сообщение
Попробуйте искать окна так (адреса свои подставить). В 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
 Пехотинец
Аватар для DevZI
 
DevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражанияDevZI блестящий пример для подражания
Регистрация: 16.07.2013
Сообщений: 52
Популярность: 1754
Сказал(а) спасибо: 181
Поблагодарили 26 раз(а) в 16 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от f0gestПосмотреть сообщение
Как найти смещение с ником персонажа?

OpcodeScan Кидаете программу в папку с elementclient, она покажет все нужные адреса.
  Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обсуждение Auto Perfect World Fedos1977 Общение и обсуждение Perfect World 95 11.12.2011 19:00
[Программа] Auto Perfect World semoder Боты, скрипты и прочий софт для Perfect World 1 22.11.2010 11:50
[Программа] Perfect World Auto-login v.1.1. KloneB@DGuY Боты, скрипты и прочий софт для Perfect World 5 25.04.2010 16:50

www.webmoney.ru
Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 08:33.

Пишите нам: forum@zhyk.ru
Copyright © 2019 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net