Home of Gamehacking - Archiv
read byte - Druckversion

+- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de)
+-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15)
+--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19)
+--- Thema: read byte (/showthread.php?tid=341)

read byte - Bluespide - 03.05.2011

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



RE: read byte - DNA - 03.05.2011

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

RE: read byte - Bluespide - 03.05.2011

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???

RE: read byte - Bluespide - 03.05.2011

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