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

---

[DNA]

Hast du dir mein TrainerModul mal angeschaut?
Dort ist die Read_Byte funktion schon lange vorhanden
Und immer daran denken, VB als Admin starten ... hatte schon oft das Problem mit der 0!

[Bluespide]

aha ok sry hab ich ned gesehen, aber ich sehe keinen unterschied zu meiner funktion^^
//edit mmmmkay mit deinem Modul bekomme ich auch 0 raus???

[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

---