[Help] VB.NET ReadProcessMemory

 Structure OSVERSIONINFO
        Public dwOSVersionInfoSize As Long
        Public dwMajorVersion As Long
        Public dwMinorVersion As Long
        Public dwBuildNumber As Long
        Public dwPlatformId As Long
        Public szCSDVersion As String
    End Structure


    <StructLayout(LayoutKind.Sequential)> _
    Public Structure SYSTEM_INFO
        Dim dwOemID As Integer
        Dim dwPageSize As Integer
        Dim lpMinimumApplicationAddress As Integer
        Dim lpMaximumApplicationAddress As Integer
        Dim dwActiveProcessorMask As Integer
        Dim dwNumberOrfProcessors As Integer
        Dim dwProcessorType As Integer
        Dim dwAllocationGranularity As Integer
        Dim dwReserved As Integer
    End Structure
 Private Declare Function VirtualQueryEx Lib "kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As UInteger, ByRef lpBuffer As MEMORY_BASIC_INFORMATION, ByVal dwLength As Integer) As Integer
    Public Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal blnheritHandle As Boolean, ByVal dwAppProcessId As Integer) As IntPtr
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer() As Byte, ByVal iSize As Integer, ByRef lpNumberOfBytesRead As Integer) As Boolean
    Const GW_HWNDNEXT = 2
    Private Const PROCESS_VM_READ = (&H10)
    Private Const PROCESS_VM_OPERATION = (&H8)
    Private Const PROCESS_QUERY_INFORMATION = (&H400)
    Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION

 Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_Process")
        Dim x2 As Integer
        For Each process As ManagementObject In searcher.Get()
            If process("Name") = "FlashPlayerPlugin_16_0_0_296.exe" Then
                x2 = Convert.ToInt32(process("ProcessId"))
            End If
        Next
        Dim hProcess As Integer
        Dim lpMem As UInt32, ret As UInt16, lLenMBI As Long
        Dim si As New SYSTEM_INFO
        Dim mbi As MEMORY_BASIC_INFORMATION
        hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, x2)
        lLenMBI = Len(mbi)
        Call GetSystemInfo(si)
        lpMem = si.lpMinimumApplicationAddress
        Do While lpMem < si.lpMaximumApplicationAddress
            mbi.RegionSize = 0
            ret = VirtualQueryEx(hProcess, lpMem, mbi, lLenMBI)
            If ret = lLenMBI Then
                If ((mbi.lType = &H20000) And (mbi.State = &H1000) And (mbi.RegionSize > 0)) Then
                    Dim mybytes(mbi.RegionSize) As Byte
                    ReadProcessMemory(hProcess, mbi.BaseAddress, mybytes, mbi.RegionSize, vbNull)
                    Debug.WriteLine("String : " & System.Text.Encoding.Unicode.GetString(mybytes))
                End If
                lpMem = mbi.BaseAddress + mbi.RegionSize
            Else
                Exit Do
            End If
        Loop
        CloseHandle(hProcess)

                    Dim mybytes(mbi.RegionSize) As Byte
                    ReadProcessMemory(hProcess, mbi.BaseAddress, mybytes, mbi.RegionSize, vbNull)
                    Debug.WriteLine("String : " & System.Text.Encoding.Unicode.GetString(mybytes))

Array.Clear(mybytes, mybytes.GetLowerBound(0), mybytes.Length)