[VB]Memread

Imports System.Runtime.InteropServices

Module Module1

    <DllImport("kernel32.dll")>
    Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As IntPtr, ByVal nSize As Integer, ByRef lpNumberOfBytesRead As IntPtr) As Boolean
    End Function
    <DllImport("kernel32.dll")>
    Function OpenProcess(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr
    End Function


    Sub Main()
        Dim pid As Integer = Console.ReadLine()
        Dim hProcess As IntPtr = OpenProcess(&H10, False, pid)
        Dim lpAddress As IntPtr = New IntPtr(&H22FF1C)
        Dim lpBuffer, lpRead As IntPtr
        Dim bSuccess As Boolean = ReadProcessMemory(hProcess, lpAddress, lpBuffer, Marshal.SizeOf(GetType(Integer)), lpRead)
        If bSuccess = True Then
            Console.WriteLine(lpBuffer)
        End If
        Console.ReadLine()
    End Sub

End Module