Imports System

Imports System.Diagnostics

Imports System.Runtime.InteropServices

​

Class ApiExample

    <DllImport("kernel32")>

    Shared Function ReadProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, lpBuffer As IntPtr, nSize As UInteger, ByRef lpNumberOfBytesRead As UInteger) As Boolean

    End Function

    Public Shared Sub Main(args As String())

        Dim myAge As Integer = 23

        Dim pAgeAddress, pResultAge As IntPtr

        pAgeAddress = Marshal.AllocHGlobal(4)

        pResultAge = Marshal.AllocHGlobal(4)

        Marshal.StructureToPtr(myAge, pAgeAddress, False)

        Dim reads As UInteger

        If Not ReadProcessMemory(Process.GetCurrentProcess().Handle, pAgeAddress, pResultAge, 4, reads) Then

            Console.WriteLine("메모리 읽기 실패!")

        Else

            ' 비주얼 베이직에서는 unsafe 키워드도 없고 포인터도 사용할 수 없으므로

            ' Marshal 클래스를 통해서만 작업이 가능하다.

            Console.WriteLine("메모리 읽기 성공!")

            Console.WriteLine("myAge 변수의 값: {0}", myAge)

            Console.WriteLine("pResultAge 변수가 가리키는 주소의 값: {0}", Marshal.ReadInt32(pResultAge))

        End If

        Marshal.FreeHGlobal(pResultAge)

        Console.ReadKey(True)

    End Sub

End Class