vb.net 教程 6-3 进程加载的模块- VB

在《vb.net 教程 6-1 进程 Process类初探》一节我曾提示Process类重要属性中有个modules，通过这个属性我们可以获得该进程加载的模块（通常是Dll文件）的一些属性。

Process.Modules是包含了多个ProcessModule的集合（ProcessModuleCollection），单独的ProcessModule有以下一些重要属性：

BaseAddress：加载模块的内存地址。
FileName：模块的完整路径。
FileVersionInfo：获取模块的版本信息。
ModuleMemorySize：获取加载模块所需内存量。
ModuleName：获取进程模块的名称。
以下将接着6-2节的代码看看获得的模块的属性。

请在窗体设计中增加一个ListView2控件，View属性为Details，并增加如图的列名：

当在ListView1中选中一个进程的时候，同时获得对应的模块：

Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
If ListView1.SelectedItems.Count <> 1 Then
Exit Sub
End If
'。。。。。。这里省略了6-2节中的代码
TextBox1.Text = proinfo

ListView2.Items.Clear()

Dim mainMod As ProcessModule
Dim lvMod As ListViewItem
Try
mainMod = pro.MainModule
lvMod = New ListViewItem(mainMod.ModuleName)
lvMod.SubItems.Add(mainMod.BaseAddress.ToInt64) '不能用ToInt32
lvMod.SubItems.Add(mainMod.FileVersionInfo.FileVersion)
lvMod.SubItems.Add(mainMod.ModuleMemorySize)
lvMod.SubItems.Add(mainMod.FileName)
ListView2.Items.Add(lvMod)
Catch ex As Exception

End Try

Try
For Each proMod As ProcessModule In pro.Modules
If (proMod.ModuleName = mainMod.ModuleName) AndAlso (proMod.BaseAddress = mainMod.BaseAddress) Then
Continue For
End If
lvMod = New ListViewItem(proMod.ModuleName)
lvMod.SubItems.Add(proMod.BaseAddress.ToInt64)
lvMod.SubItems.Add(proMod.FileVersionInfo.FileVersion)
lvMod.SubItems.Add(proMod.ModuleMemorySize)
lvMod.SubItems.Add(proMod.FileName)
ListView2.Items.Add(lvMod)
Next
Catch ex As Exception

End Try
End Sub