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

在《 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

代码先是在listview2中列出了主模块的信息,由于modules属性将会再次获得主模块,所以加了一句判断
If (proMod.ModuleName = mainMod.ModuleName) AndAlso (proMod.BaseAddress = mainMod.BaseAddress) Then
                    Continue For
                End If

运行结果如下图:


由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看vb.net 教程 目录

相关文章
相关标签/搜索