current Position ? : Age of Conan Discussions

Code: Register to unlock hidden link

Global $playerdma, $playerX, $playerY, $playerZ, $playerSpeed, $playerSJ, $playerNFD 

$Process = 'ageofconan.exe' 
$PID = ProcessExists($Process) 
$OpenProcess = MemOpen(0x38, False, $PID) 

$playerdma = MemRead($OpenProcess, 0x0132894,'int', 4) 
$playerX = MemRead($OpenProcess, $playerdma + 0x2C,'float', 4) 
$playerY = MemRead($OpenProcess, $playerdma + 0x34,'float', 4) 
$playerZ = MemRead($OpenProcess, $playerdma+ 0x30,'float', 4)
$playerSpeed = MemRead($OpenProcess, $playerdma+ 0x150,'float', 4)

$playerSJ = MemRead($OpenProcess, $playerdma+ 0x17C,'int', 4)

$playerNFD = MemRead($OpenProcess, $playerdma+ 0x184,'int', 4) 

Sleep(4000)
MsgBox(0,"X Pos ",$playerX)


Func MemRead($i_hProcess, $i_lpBaseAddress, $s_Type ,$i_nSize) 
Local $hDll = DllOpen("kernel32.dll") 
If @error Then 
SetError(1) 
Return 0 
EndIf 
Local $v_Struct = DllStructCreate ($s_Type&'[' & $i_nSize & ']') 
Local $v_lpNumberOfBytesRead = '' 
DllCall($hDll, 'int', 'ReadProcessMemory', 'int', $i_hProcess, 'int', $i_lpBaseAddress, 'int', DllStructGetPtr ($v_Struct, 1), 'int', $i_nSize, 'int', $v_lpNumberOfBytesRead) 
If @error Then 
SetError(1) 
Return 0 
EndIf 
Local $v_Return = DllStructGetData ($v_Struct, 1) 
$v_Struct=0 
DllClose($hDll) 
Return $v_Return 
EndFunc 

Func MemOpen($i_dwDesiredAccess, $i_bInheritHandle, $i_dwProcessId) 

$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', $i_dwDesiredAccess, 'int', $i_bInheritHandle, 'int', $i_dwProcessId) 
If @error Then 
SetError(1) 
Return 0 
EndIf 

Return $ai_Handle[0] 
EndFunc 

Func MemClose($i_hProcess) 

$av_CloseHandle = DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $i_hProcess) 
Return $av_CloseHandle[0] 

EndFunc 

Func MemWrite($i_hProcess, $i_lpBaseAddress, $s_Type ,$v_Inject, $i_nSize)
Local $hDll = DllOpen("kernel32.dll")
If @error Then
SetError(1)
Return 0
EndIf
$v_lpNumberOfBytesRead = ''
Local $v_Struct = DllStructCreate ($s_Type&'[' & $i_nSize & ']')
DllStructSetData ($v_Struct, 1, $v_Inject)

$i_Call = DllCall($hDll, 'int', 'WriteProcessMemory', 'int', $i_hProcess, 'int', $i_lpBaseAddress, 'int', DllStructGetPtr ($v_Struct, 1), 'int', $i_nSize, 'int', $v_lpNumberOfBytesRead)
If @error Then
SetError(1)
Return 0
EndIf
$v_Struct=0
DllClose($hDll)
Return $i_Call[0]
EndFunc