read byte

[Bluespide]

ok habs so gehts

Code:

1 2 3 4 5 6

Public Shared Function read_byte(ByVal ProcessName As Process, ByVal address As Int32) As Byte Dim process_handle As Int32 = OpenProcess(2035711, 0, ProcessName.Id), value As Integer If process_handle <> 0 Then ReadProcessMemory(process_handle, address, value, 1, 0) CloseHandle(process_handle) Return CByte(value) End Function

---