Pointer Adresse in VB08

        GetProcessId(ProcName)

        Dim pointerone As Long
        Dim pointertwo As Long
        Dim pointerthree As Long
        Dim pointerfour As Long
        Dim value As Long

        pointerone = Read_Long(&H460C20)
        pointertwo = Read_Long(pointerone + &HC)
        pointerthree = Read_Long(pointertwo + &H14)
        pointerfour = Read_Long(pointerthree)
        value = Read_Long(pointerfour + &H18)
        MsgBox(value)

    Private Declare Function RPM Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32

    Public Function GetProcessId(ByVal ProcName As String)
        Dim Processes() As Process = Process.GetProcesses
        Dim process_name As String
        Dim i As Byte
        For i = LBound(Processes) To UBound(Processes)
            process_name = Processes(i).ProcessName
            If process_name = ProcName Then
                process_id = Processes(i).Id
                Return process_id
            End If
        Next
    End Function

    Public Function Read_Long(ByVal address As Int32) As Int32
        Dim process_handle As Int32, value As Int32
        process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
        If process_handle <> 0 Then
            RPM(process_handle, address, value, 4, 0)
        End If
        CloseHandle(process_handle)
        Return value
    End Function

Imports System.Runtime.InteropServices

Public Class readpointer
    Private ProcHandle As IntPtr
    Private ProcessName As String
    Public Const PROCESS_VM_OPERATION As UInteger = (&H8)
    Public Const PROCESS_VM_READ As UInteger = (&H10)
    Public Const PROCESS_VM_WRITE As UInteger = (&H20)
    <DllImport("kernel32.dll")> _
    Public Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
    End Function

    <DllImport("kernel32.dll", SetLastError:=True)> _
    Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <Out()> ByVal lpBuffer As Byte(), ByVal dwSize As Integer, ByRef lpNumberOfBytesRead As Integer) As Boolean
    End Function

    Public Function GetMaplestory() As Integer
        Dim Success As Integer
        GetProcess = "MapleStory"
        OpenProcess()
        If OpenProcess() = -1 Then
            Success = 0
            Return Success
        Else
            Success = 1
            Return Success
        End If

    End Function

    Public Property GetProcess() As String
        Get
            Return ProcessName
        End Get
        Set(ByVal value As String)
            ProcessName = value
        End Set
    End Property

    Public Function OpenProcess() As Integer
        Dim ProcessArray As Process() = Process.GetProcessesByName(ProcessName)
        Dim sucess As Integer
        Try
            ProcHandle = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 1, CUInt(ProcessArray(0).Id))
            sucess = 1
        Catch generatedExceptionName As IndexOutOfRangeException
            sucess = -1
        End Try
        Return sucess
    End Function

    Public Function ReadPointerFromMemory(ByVal BaseAddress As Integer, ByVal PointerOffset As Integer, ByVal BytesToRead As Integer) As Integer
        Dim BytesAtAddress As Byte() = New Byte(BytesToRead - 1) {}
        Dim BytesRead As Integer
        Dim MemoryBase As Integer
        Dim ReturnVal As Integer
        ReadProcessMemory(ProcHandle, CType(BaseAddress, IntPtr), BytesAtAddress, BytesToRead, BytesRead)
        MemoryBase = BitConverter.ToInt32(BytesAtAddress, 0)
        MemoryBase += PointerOffset
        ReadProcessMemory(ProcHandle, CType(MemoryBase, IntPtr), BytesAtAddress, BytesToRead, BytesRead)
        ReturnVal = BitConverter.ToInt32(BytesAtAddress, 0)
        Return ReturnVal
    End Function

    Public Function ReadPointer(ByVal Base As Integer, ByVal Offset As Integer) As Integer
        GetMaplestory()
        Dim Pointer As Integer
        Dim Final As Integer
        Pointer = ReadPointerFromMemory(Base, Offset, 4)
        Final = (Convert.ToInt32(Pointer))
        Return Final
    End Function
End Class

 Dim rp As New readpointer
Label2.Text = rp.ReadPointer("&HPointerBaseHere", "&HPointerOffsetHere").ToString() '//Must Have &H