Memory ablesen

Ich versuche mit WinAPI.au3 eine bestimmt Adresse zu lesen und es dann in einer MsgBox anzeigen lassen.

Mein simpler code dafür :

#Include <WinAPI.au3> 


Dim $procHwnd = _WinAPI_OpenProcess(BitOR(0x0400, 0x0010), False, ProcessExists("Tutorial.exe")) 


Dim $pBuffer = DllStructCreate("byte[256]"), $iRead = 0 


_WinAPI_ReadProcessMemory($procHwnd, 0x00D027BC, DllStructGetPtr($pBuffer), 256, $iRead) 


; convert the unicode text(as it turned out to be stored as) to normal text and display it 
MsgBox(0, "Data Read", BinaryToString(Binary(DllStructGetData($pBuffer, 1)), 2))

Bei der Zeile _WinAPI_OpenProcess(BitOR(0x0400, 0x0010), False, ProcessExists("Tutorial.exe"))
habe ich keine Ahnung ob da BitOR(0x0400, 0x0010) hingehört (ich habs von einem anderen thread im englischen Forum )

0x00D027BC ist die Addresse die ich lesen will und Tutorial.exe das Programm

Nun es kommen komische Werte raus :

anstatt das die MsgBox 85 anzeigt, zeigt es: U

für 80 zeigt es: P

etc..

Wie bekomme ich es hin das es 80 bzw 85 anzeigt anstatt U und P und was _kommt bei WinAPI_OpenProcess in den ersten Parameter und warum? (im meinem Beispile kommt BitOR(0x0400, 0x0010), aber ich hab keine ahnung warum , weshalb, wie gesagt habe ich es woanders gesehen)

Also statt BinaryToString(Binary(...)) einfach Dec() verwenden

Hmm wenn ich Dec() benutze kommt jetzt nur noch 0 raus.

#Include <WinAPI.au3> 
Dim $procHwnd = _WinAPI_OpenProcess(BitOR(0x0400, 0x0010), False, ProcessExists("Tutorial.exe")) 


Dim $pBuffer = DllStructCreate("byte[256]"), $iRead = 0 


_WinAPI_ReadProcessMemory($procHwnd, 0x00D027BC, DllStructGetPtr($pBuffer), 256, $iRead) 


; convert the unicode text(as it turned out to be stored as) to normal text and display it 
MsgBox(0, "Data Read", Dec($pBuffer))

und bei StringToHex() kommt die Meldung undefined Function

#Include <WinAPI.au3> 
Dim $procHwnd = _WinAPI_OpenProcess(BitOR(0x0400, 0x0010), False, ProcessExists("Tutorial.exe")) 


Dim $pBuffer = DllStructCreate("byte[256]"), $iRead = 0 


_WinAPI_ReadProcessMemory($procHwnd, 0x00D027BC, DllStructGetPtr($pBuffer), 256, $iRead) 


; convert the unicode text(as it turned out to be stored as) to normal text and display it
$hex = _StringToHex($pBuffer) 
MsgBox(0, "", Dec($hex))

Mach mal das, und schau, wo das richtige steht:

$Res = DllStructGetData($pBuffer, 1)
MsgBox(0,"","Dec(): "& Dec($Res) & @CRLF & "Dec(Hex()): " & Dec(Hex($Res)) & @CRLF "Original: " & $Res & @CRLF)

Also, sollte auch da das richtige rauskommen:

$Res = DllStructGetData($pBuffer, 1)
MsgBox(0,"","Dec(Hex()): " & Dec(Hex($Res))

Hmm

Dim $procHwnd = _WinAPI_OpenProcess(BitOR(0x0400, 0x0010), False, ProcessExists("Tutorial.exe"))
 
Dim $pBuffer = DllStructCreate("byte[256]"), $iRead = 0
 
_WinAPI_ReadProcessMemory($procHwnd, 0x00D027BC, DllStructGetPtr($pBuffer), 256, $iRead)

$Res = DllStructGetData($pBuffer, 1)
MsgBox(0,"","Dec(Hex()): " & Dec(Hex($Res)))

Hmm jetzt kommt nur noch 0 raus, very strange, also Addresse ist 00D027BC und das Programm Tutorial.exe *verzweifle*

keine Ahnung ob das weiterhilft aber zum nächsten Code:

#Include <WinAPI.au3>
#include <String.au3>
 
Dim $procHwnd = _WinAPI_OpenProcess(BitOR(0x0400, 0x0010), False, ProcessExists("Tutorial.exe"))
 
Dim $pBuffer = DllStructCreate("byte[256]"), $iRead = 0
 
_WinAPI_ReadProcessMemory($procHwnd, 0x00D027BC, DllStructGetPtr($pBuffer), 256, $iRead)

$Res = DllStructGetData($pBuffer,1)
 
MsgBox(0,"","Dec(Hex()): " & $Res)
MsgBox(0,"","Dec(Hex()): " & Hex($Res))
MsgBox(0,"","Dec(Hex()): " & Dec($Res))
MsgBox(0,"","Dec(Hex()): " & Dec(Hex($Res)))

Kommen folgende 4 MsgBox:

http://img156.imageshack.us/img156/3697/33248347yd6.jpg

http://img156.imageshack.us/img156/2977/54507041vm4.jpg

und dann zweimal mit dem Wert 0.

Der Fehler mit Value 0 ist immer noch nicht gefixed

also IsBinary($Res) return eine 1, also sollte es schon Binär sein

Das kommt bei §Res raus:

0x450000001E020000D8C54200AC24D0006436D

00000000000000000000000000000000000000000000000000001000000222441003

2244100AC24D00000000000DCE54200C427D00040000000E600000029000000110000

00A000000000000001010101000000000001030000000000000046D000000000000F

0000FF2846D0000000F4FF00000000000000000000000000000000000000000000000

000000000000001000000000000000000000000000000000000000000000000000000

000008AE44000000000000000000000000000000000000000000000000000000000000

00000000000000000000000000000000000000000000000000000000000000

Du ließt zu viel aus:)
Benötigen würdest du nur das: 0x45
Verwedne doch mal 4 bytes statt 256

Dim $pBuffer = DllStructCreate("byte[4]"), $iRead = 0
_WinAPI_ReadProcessMemory($procHwnd, 0x00D027BC, DllStructGetPtr($pBuffer), 4, $iRead)

$Res = DllStructGetData($pBuffer,1)

Danke das hat geholfen, aber statt 4 bytes, musste ich mit 1 byte zufrieden geben sonst kommt falsches Ergebnis raus.

Danke für eure Hilfe