|
Проблемы с нахождением ника персонажа [Delphi] - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
25.09.2013, 02:02
|
#1
|
|
|
|
Пехотинец
|
Регистрация: 03.02.2013
Сообщений: 60
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 25 раз(а) в 12 сообщениях
|
Проблемы с нахождением ника персонажа [Delphi]
Ребят, разобрался. Может кому понадобится:
|
Цитата: |
|
|
|
|
|
|
|
|
var
Form1: TForm1;
KlientWindow:HWND; //Handle клиента
ProcessId:Integer;
hProcess:Integer; //Идентификатор объекта
const
ba=$C38B6C; //Базовый адрес
pName= $688; //Оффсет имени персонажа
procedure TForm1.Button1Click(Sender: TObject);
var
NM: String;
WNM, PF: DWord;
TNM : array [0..49] of widechar;
begin
KlientWindow := FindWindow(nil, PChar('Perfect World')); //Handle клиента через название окна
GetWindowThreadProcessId(KlientWindow,@ProcessId); //Получаем Pid.
hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); //Открываем процесс с полным доступом
ReadProcessMemory (hProcess, Pointer(ba), @WNM, 4, PF);
ReadProcessMemory (hProcess, Pointer(WNM+$1C), @WNM, 4, PF);
ReadProcessMemory (hProcess, Pointer(WNM+$34), @WNM, 4, PF);
ReadProcessMemory (hProcess, Pointer(WNM+pName), @WNM, 4, PF);
ReadProcessMemory (hProcess, Pointer(WNM+$0), @TNM, 100, PF);
Результат:= WideCharToString(TNM);
end; |
|
|
|
|
|
Последний раз редактировалось sedrik1992; 26.09.2013 в 13:11.
Причина: Дополнил код
|
|
|
26.09.2013, 09:43
|
#2
|
|
|
|
Рыцарь-капитан
|
Регистрация: 14.06.2012
Сообщений: 511
Популярность: 7566
Сказал(а) спасибо: 4
Поблагодарили 181 раз(а) в 88 сообщениях
|
Re: Проблемы с нахождением ника персонажа [Delphi]
ты сам понял что сделал?
переменная hProcess не задана
Процесс не найден и не открыт
и откуда ты пытаешься считать тогда
________________
Хотите как то отблагодарить за помощь?
Не стесняйтесь нажимайте "Спасибо"
Делаю программы на заказ, по всем вопросам в скайп: Ginrey2
|
|
|
26.09.2013, 12:49
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 03.02.2013
Сообщений: 60
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 25 раз(а) в 12 сообщениях
|
Re: Проблемы с нахождением ника персонажа [Delphi]
|
|
|
26.09.2013, 13:32
|
#4
|
|
|
|
Разведчик
|
Регистрация: 23.06.2009
Сообщений: 38
Популярность: 392
Сказал(а) спасибо: 7
Поблагодарили 8 раз(а) в 2 сообщениях
|
Re: Проблемы с нахождением ника персонажа [Delphi]
|
|
|
26.09.2013, 15:13
|
#5
|
|
|
|
Пехотинец
|
Регистрация: 03.02.2013
Сообщений: 60
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 25 раз(а) в 12 сообщениях
|
Re: Проблемы с нахождением ника персонажа [Delphi]
|
Цитата: |
|
|
|
|
|
|
Можно поинтересоваться, что именно обсуждалось?
ты ссылку кинул на абсолютно левую тему
|
|
|
27.09.2013, 11:14
|
#6
|
|
|
|
Разведчик
|
Регистрация: 23.06.2009
Сообщений: 38
Популярность: 392
Сказал(а) спасибо: 7
Поблагодарили 8 раз(а) в 2 сообщениях
|
Re: Проблемы с нахождением ника персонажа [Delphi]
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 16:19.
|
|