read byte

[Bluespide]

Hi,

bei den meisten Memorymodulen gibt es nicht eine funktion mit der man nur 1 byte auslesen kann und deswegen wollte ich mir eine selber machen aber ich bekomme immer nur 0 raus:s

Code:

1 2 3 4 5 6 7 8

Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer Public Shared Function read_byte(ByVal ProcessName As Process, ByVal address As Int32) As Byte Dim process_handle As Int32 = OpenProcess(2035711, CInt(False), ProcessName.Id), value As Byte If process_handle <> 0 Then ReadProcessMemory(process_handle, address, CByte(value), 1, 0) CloseHandle(process_handle) Return value End Function

---