在vb.net中获取进程的基地址

Imports System.Diagnostics

' 获取进程基地址
Public Function GetProcessBaseAddress(ByVal processId As Integer) As IntPtr
    Dim process As Process = Process.GetProcessById(processId)
    Dim modules As ProcessModuleCollection = process.Modules

    ' 返回第一个模块的基地址
    Return modules(0).BaseAddress
End Function

' 获取进程ID
Dim processId As Integer = 1234

' 调用函数获取基地址
Dim baseAddress As IntPtr = GetProcessBaseAddress(processId)

' 打印基地址
Console.WriteLine("进程基地址: 0x{0}", baseAddress.ToString("X"))