|
передвижение по координатам - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
21.05.2012, 15:43
|
#1
|
|
|
|
Пехотинец
|
Регистрация: 29.05.2010
Сообщений: 58
Популярность: 10
Сказал(а) спасибо: 80
Поблагодарили 0 раз(а) в 0 сообщениях
|
передвижение по координатам
как задать передвижение по координатам?
Код:
ReadProcessMemory (hProcess, Pointer(BUM+$040), @wkz, 4, NoB);
ReadProcessMemory (hProcess, Pointer(BUM+$03C), @wky, 4, NoB);
ReadProcessMemory (hProcess, Pointer(BUM+$044), @wkx, 4, NoB);
y := FloatToStr((wky + 4000) / 10);
x := FloatToStr((wkx + 5500) / 10);
Z := FloatToStr((wkz) / 10);
я пробовал просто изменить это значение через WriteProcessMemory, на экране у меня он сместился,но в реальности остался на том же месте..
|
|
|
21.05.2012, 16:59
|
#2
|
|
|
|
Разведчик
|
Регистрация: 07.10.2010
Сообщений: 21
Популярность: 90
Сказал(а) спасибо: 14
Поблагодарили 15 раз(а) в 14 сообщениях
|
Re: передвижение по координатам
судя по коду он от сюда но до конца ты тему не дочитал и не нашел там это
|
Цитата: |
|
|
|
|
|
|
|
|
|
Walk Injection (© AlexGD, muzhig; Addresses by asdxz)
Код:
procedure WalkCall(aPParams:PParams);Stdcall;
var CallAddress1,CallAddress2,CallAddress3:Pointer;
x,y,z:single;
flying:DWORD;
begin
CallAddress1:=Pointer($00468070);
CallAddress2:=Pointer($0046BCB0);
CallAddress3:=Pointer($00468470);
x:=aPParams^.Param4;
y:=aPParams^.Param5;
z:=aPParams^.Param6;
flying:=aPParams^.Param1;
asm
pushad
mov eax, dword ptr [PW_GAMERUN_ADDR]
mov esi, dword ptr [eax+$20]
mov ecx, dword ptr [esi+$FE0]
push 1
call CallAddress1
mov edi, eax
lea eax, dword ptr [esp+$0C]
push eax
push flying
mov ecx, edi
call CallAddress2
mov ecx, dword ptr [esi+$FE0]
push 0
push 1
push edi
push 1
call CallAddress3
mov eax, dword ptr [PW_GAMERUN_ADDR]
mov eax, dword ptr [eax+$20]
mov eax, dword ptr [eax+$FE0]
mov eax, dword ptr [eax+$30]
mov ecx, dword ptr [eax+$4]
mov eax, x
mov dword ptr[ecx+$20], eax
mov eax, z
mov dword ptr[ecx+$24], eax
mov eax, y
mov dword ptr[ecx+$28], eax
popad
end;
end;
procedure Walk(x,y,z:single);
var aParams: TParams;
begin
ReadProcessMemory(aHandle,ptr(BaseWalkMode),@WalkMode,1,readwrite); //BaseWalkMode = GA +20 +61C
if WalkMode = 0 then aParams.Param1:=0 else aParams.Param1:=1;
aParams.Param3:=x;
aParams.Param4:=y;
aParams.Param5:=z;
InjectFunc(aHandle,@WalkCall,@aParams,SizeOf(aParams));
end;
|
|
|
|
|
|
________________
если я не ошибаюсь, а могу и ошибаться ...
too many actual parameters
|
|
|
21.05.2012, 23:48
|
#3
|
|
|
|
Пехотинец
|
Регистрация: 29.05.2010
Сообщений: 58
Популярность: 10
Сказал(а) спасибо: 80
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: передвижение по координатам
не,такого там не видел
и почему,когда я создаю такую функцию у меня показывается ошибка на pparams?
procedure WalkCall(aPParams:PParams);Stdcall;
Последний раз редактировалось Meg(0); 22.05.2012 в 01:13.
|
|
|
22.05.2012, 16:53
|
#4
|
|
|
|
Разведчик
|
Регистрация: 07.10.2010
Сообщений: 21
Популярность: 90
Сказал(а) спасибо: 14
Поблагодарили 15 раз(а) в 14 сообщениях
|
Re: передвижение по координатам
________________
если я не ошибаюсь, а могу и ошибаться ...
too many actual parameters
|
|
|
Пользователь сказал cпасибо:
|
|
24.05.2012, 15:22
|
#5
|
|
|
|
Разведчик
|
Регистрация: 01.07.2009
Сообщений: 21
Популярность: 83
Сказал(а) спасибо: 30
Поблагодарили 14 раз(а) в 11 сообщениях
|
Re: передвижение по координатам
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 21:41.
|
|