Rom bOT hP auslesen ( VB 2008 )

Public Class Form1
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Public 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 PROCESS_ALL_ACCESS = &H1F0FFF

    Public Function readmem(ByVal processHandle As IntPtr, ByVal Address As Integer)
        Dim hp = 0
        ReadProcessMemory(processHandle, Address, hp, 4, 0)
        Return hp
    End Function



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myProcesses As Process() = Process.GetProcessesByName("Client")
        Dim processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 1, myProcesses(0).Id)
        Dim pointeradress As Integer = &H5693C0
        Dim offset As Integer = &H2C8
        Dim boffset As Integer = &H58C

        Dim adress As Integer = (readmem(processHandle, pointeradress))
        adress = (readmem(processHandle, pointeradress + boffset))

        Dim value As Integer = (readmem(processHandle, adress + offset))


    End Sub

End Class