Hey Ho,
ich sitze jetzt seit 2,5 std an dem fehler und habe die schnauze voll!
Das Problem ist, dass er nicht die original adresse geschweige die zahl anzeigt.
Keine ahnung was da los??
Ps: ich habe mir aus einem vor thread das template von BladeTiger12 verwendet, da ich dachte, dass es an meinem script liegt
Das Spiel ist Dragon`s Prophet in der 64bit version wie man sehen kann am autoit script
Der Screen:
[Only registered and activated users can see links. Click Here To Register...]
ich sitze jetzt seit 2,5 std an dem fehler und habe die schnauze voll!
Das Problem ist, dass er nicht die original adresse geschweige die zahl anzeigt.
Keine ahnung was da los??
Ps: ich habe mir aus einem vor thread das template von BladeTiger12 verwendet, da ich dachte, dass es an meinem script liegt
Das Spiel ist Dragon`s Prophet in der 64bit version wie man sehen kann am autoit script
Code:
#include <Pointer.au3>
HotKeySet("{F1}", "_Read")
Global $Address, $PID, $Handle
Dim $Offset[5] = [ 0x48, 0x178, 0x260, 0x528, 0xC8]
$PID = ProcessExists("dp_x64.exe")
If $PID > 0 Then
$Handle = _MemoryOpen($PID)
$Address = _MemoryModuleGetBaseAddress($PID, "dp_x64.exe")
$Address = $Address + 0x01A58240
Else
Exit
EndIf
While True
Sleep(10)
WEnd
Func _Read()
$Read = _ReadPtr($Address, $Offset, $Handle, "dword")
MsgBox(0, "", $Read)
EndFunc
Func _ReadPtr($Ptr, $Offset, $MemOpen, $Type = "dword")
If IsArray($Offset) Then
For $i = 0 To UBound($Offset) -1
$Ptr = _MemoryRead($Ptr, $MemOpen) + $Offset[$i]
Next
Return _MemoryRead($Ptr, $MemOpen, $Type)
Else
Return 0
EndIf
EndFunc
[Only registered and activated users can see links. Click Here To Register...]