PDA

Просмотр полной версии : [Помогите!] передвижение по координатам


Meg(0)
21.05.2012, 15:43
как задать передвижение по координатам?


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, на экране у меня он сместился,но в реальности остался на том же месте..

zaparca
21.05.2012, 16:59
судя по коду он от сюда но до конца ты тему не дочитал и не нашел там 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),@WalkM ode,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(aPara ms));
end;

Meg(0)
21.05.2012, 23:48
не,такого там не видел

и почему,когда я создаю такую функцию у меня показывается ошибка на pparams?

procedure WalkCall(aPParams:PParams);Stdcall;

zaparca
22.05.2012, 16:53
зайди в эту тему и почитай хорошенько
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

krysun
24.05.2012, 15:22
Здесь исправленный Walk Inject ([Ссылки могут видеть только зарегистрированные и активированные пользователи])