请教如何让vbnet的process像ce那样显示进程的所有模块

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each pro As Process In Process.GetProcesses
        ListBox1.Items.Add(pro.ProcessName)
        ListBox2.Items.Add("&h" & Hex(pro.Id))
    Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    ListBox3.Items.Clear()
    Dim pro As Process = Process.GetProcessById(ListBox2.Items(ListBox1.SelectedIndex))
    For Each promod As ProcessModule In pro.Modules
        ListBox3.Items.Add(promod.ModuleName)
    Next
    ListBox2.SelectedIndex = ListBox1.SelectedIndex
End Sub

Answer 1

    For Each promod As ProcessModule In pro.Modules
        ListBox3.Items.Add(promod.FileName)
    Next

ProcessModule.FileName 属性 (System.Diagnostics) | Microsoft Docs 获取模块的完整路径。 https://docs.microsoft.com/zh-cn/dotnet/api/system.diagnostics.processmodule.filename?view=net-6.0