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

深碍√TFBOYSˉ_ 2022-08-28 15:59 16阅读 0赞

在《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教程][vb.net] 目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。  
6

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/