通过Visual Basic代码查找程序的基地址

Question

我正在使用Visual Studio 2019-Visual Basic。

我正试图通过代码找到一个程序的基本地址。我已经知道基本地址了，但我需要我正在制作的程序来自己找到它。

我使用这个，它显示了来自模块的许多地址：

Dim target As Process = Process.GetProcessesByName("The Program")(0)
For Each mo As ProcessModule In target.Modules
ListBox1.Items.Add(mo.BaseAddress.ToString())
'MsgBox(Hex(mo.BaseAddress.ToString()))
Next

(我根据上面的代码重新命名了程序的名称，以防出现版权问题。(

我正在尝试获取基本地址我的基本地址是：

Base Address in Hex = 00007FF7BE6B0000
Base Address in Dec = 140702028333056

当我运行上面的代码时，它列出的地址中没有一个是我的基地址。

我用PE编辑器查看了程序的基本地址。我使用了GitHub的一个名为PE Tools的程序。

那么，我该如何编码才能获得此图像库地址呢？

Answer 1

我让它使用以下代码：

Dim p As Process = Process.GetProcessesByName(GetCurrentProcessName)(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf(GetCurrentProcessName) <> -1 Then
Hex(moz.BaseAddress.ToString)
End If
Next