VB.NET Process类

1. 在向大家详细介绍VB.NET Process类之前，首先让大家了解下ptm是什么，然后全面介绍VB.NET Process类。首先对文章名做一个解示，p是代表Process，即进程，t是代表Thread，即线程，m是代表Module，即模块。

   在 win nt，win 2000，win xp中都有一个性能查看器，我们可以用它来查看计算机上正在运行的程序，获得与程序相关的主窗口名，和查看cpu和内存，虚拟页面的使用情况。但是对于更高要求的计算机使用人员来说，这些是不够的，特别是一些diy的发烧友，他们希望自己可以随时对自己的计算机进行查看，了解更多的信息从而可以知道自己的计算机是否应该升级了，是否该对虚拟页面做出调整，是否该换cpu，还是增加内存。

   由于以上情况，所以我们完全有理由做一个更好的查看器。在进行编写代码以前我们还需要知道一些基本知识，即proccess,thread,module。现在我们先来学习一下proecss的基本知识。

   VB.NET Process类的概念

   用最简短的话来说，进程就是当前运行的应用程序。运行的应用程序包括exe,dll这两种文件。文件和进程的差别在与，文件是保存在磁盘上的，是静止的，计算机不会去调用文件，而进程是非静止的，正是由于着个原因，所以计算机每调用一个进程就需要一定的资源。这些资源包括内存，虚拟页面，句柄，gdi……

   在.net中我门可以用VB.NET Process类,(他位于System.Diagnostics空间中)提供对正在计算机上运行的进程的访问。使用VB.NET Process类，可以获取当前运行的进程的列表，或者启动新的进程。VB.NET Process类用于访问系统进程。初始化VB.NET Process类后，可使用该类来获取有关当前运行的进程的信息。此类信息包括线程集、加载的模块（.dll 和 .exe 文件）和性能信息（如进程当前使用的内存量）。

   系统进程在系统上由其进程标识符唯一标识。与许多 Windows 资源一样，进程也由其句柄标识，而句柄在计算机上可能不唯一。句柄是表示资源标识符的一般术语。即使进程已退出，操作系统仍保持进程句柄，该句柄通过 Process 组件的 Handle 属性访问。因此，可以获取进程的管理信息，如 ExitCode（通常，或者为零表示成功，或者为非零错误代码）和 ExitTime。句柄是非常有价值的资源。

4. Public Class Form1  
5. Inherits System.Windows.Forms.Form  
6. Public zj  
7. Public myProcesses() As Process  
8. Public myProcess As Process  
9. Private Sub Button1_Click(ByVal sender As System.Object, 
   ByVal e As System.EventArgs) Handles Button1.Click  
10. ListBox1.Items.Clear()  
11. myProcesses = Process.GetProcesses()  
12. For Each myProcess In myProcesses  
13. ListBox1.Items.Add(myProcess.ProcessName)  
14. Next  
15. Label1.Text = "" 
16. Label1.Text = "本机共有" & ListBox1.Items.Count & "个进程在运行"  
17. End Sub  
18.  
19. Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles ListBox1.DoubleClick  
20. Dim i : Dim f As Integer : Dim h As Integer  
21. ListBox2.Items.Clear()  
22. zj = ListBox1.SelectedIndex  
23. Label2.Text = "进程" & ListBox1.Items.Item(zj) & "的相关信息"  
24. With ListBox2.Items  
25. If myProcesses(zj).MainWindowTitle = "" Then  
26. .Add("无相关主窗口")  
27. Else  
28. .Add(myProcesses(zj).MainWindowTitle)  
29. End If  
30. .Add(myProcesses(zj).BasePriority & "进程的基本优先级")  
31. .Add(myProcesses(zj).Handle.ToString & "进程的本机句柄")  
32. .Add(myProcesses(zj).HandleCount & "进程打开的句柄数")  
33. .Add(myProcesses(zj).Id & "进程的唯一标识符")  
34. .Add(myProcesses(zj).MachineName & "进程正在其上运行的计算机的名称")  
35. .Add(myProcesses(zj).MainModule.ToString & "进程的主模块")  
36. .Add(myProcesses(zj).MainWindowHandle.ToString & "进程主窗口的句柄")  
37. '.Add(myProcesses(zj).Modules & "")  
38. .Add(myProcesses(zj).NonpagedSystemMemorySize & "分配给此进程的未分页的系统内存大小")  
39. .Add(myProcesses(zj).PagedMemorySize & "分页的内存大小")  
40. .Add(myProcesses(zj).PagedSystemMemorySize & "分页的系统内存大小")  
41. .Add(myProcesses(zj).PeakPagedMemorySize & "峰值分页内存大小")  
42. .Add(myProcesses(zj).PeakVirtualMemorySize & "峰值虚拟内存大小")  
43. .Add(myProcesses(zj).PrivateMemorySize & "专用内存大小")  
44. .Add(myProcesses(zj).StartTime & "进程启动的时间")  
45. .Add(myProcesses(zj).TotalProcessorTime.Seconds & "进程的总的处理器时间")  
46. .Add(myProcesses(zj).UsERProcessorTime.Seconds & "进程的用户处理器时间")  
47. .Add(myProcesses(zj).VirtualMemorySize & "进程的虚拟内存大小")  
48. End With  
49. ListBox3.Items.Clear()  
50. TabPage1.Text = "进程" & ListBox1.Items.Item(zj) & "的基本信息"  
51. TabPage2.Text = "进程" & ListBox1.Items.Item(zj) & "相关的线程信息"  
52. TabPage3.Text = "进程" & ListBox1.Items.Item(zj) & "相关的模块信息"  
53. '/  
54. f = myProcesses(zj).Threads.Count  
55. Label4.Text = "进程" & ListBox1.Items.Item(zj) & "共有" & f & "个相关的线程，线程ID信息如下："  
56. Dim int, pk, m, n  
57. For n = 0 To f - 1  
58. ListBox3.Items.Add(myProcesses(zj).Threads(n).Id)  
59. Next  
60. '///  
61.  
62. ListBox5.Items.Clear()  
63. Dim zha, kl  
64. zha = myProcesses(zj).Modules.Count  
65. Label5.Text = "与进程" & ListBox1.Items.Item(zj) & "共有" & zha & "个相关的模块，模块位置信息如下："  
66. For kl = 0 To zha - 1  
67. ListBox5.Items.Add(myProcesses(zj).Modules(kl).FileName)  
68. Next  
69. End Sub  
70.  
71. Private Sub ListBox3_DoubleClick(ByVal sender As Object, 
    ByVal e As System.EventArgs) Handles ListBox3.DoubleClick  
72. ListBox4.Items.Clear()  
73. Dim f, n  
74. f = myProcesses(zj).Threads.Count  
75. n = ListBox3.SelectedIndex  
76. Label6.Text = "线程" & ListBox3.Items.Item(n) & "相关信息"  
77. With ListBox4.Items‘与进程相关的线程信息见System.Diagnostics.processThread类。
    因为 Processes.threads属性是返回thread对象数组而thread对象数组的实例是由ProcessThread类来创建，
    thread 对象数组的信息是包含在System.Diagnostics. ProcessThread类中。  
78. .Add(myProcesses(zj).Threads(n).BasePriority)  
79. .Add(myProcesses(zj).Threads(n).CurrentPriority)  
80. .Add(myProcesses(zj).Threads(n).PriorityLevel)  
81. .Add(myProcesses(zj).Threads(n).PrivilegedProcessorTime)  
82. .Add(myProcesses(zj).Threads(n).StartTime)  
83. .Add(myProcesses(zj).Threads(n).ThreadState.ToString)  
84. .Add(myProcesses(zj).Threads(n).TotalProcessorTime.Seconds)  
85. .Add(myProcesses(zj).Threads(n).UserProcessorTime.Seconds)  
86. .Add(myProcesses(zj).Threads(n).WaitReason.ToString)  
87. End With  
88. End Sub  
89.  
90. Private Sub ListBox5_DoubleClick(ByVal sender As Object, 
    ByVal e As System.EventArgs) Handles ListBox5.DoubleClick  
91. ListBox6.Items.Clear()  
92. Dim f, n, m  
93. f = myProcesses(zj).Modules.Count  
94. n = ListBox5.SelectedIndex  
95. Label7.Text = "模块" & ListBox5.Items.Item(n) & "相关信息"  
96. With ListBox6.Items‘与进程相关的模块信息见System.Diagnostics. ProcessModule类，
    因为Processes.Modules属性是返回Modules对象数组而Modules对象数组的实例是由 ProcessModule类来创建，
    Modules对象数组的信息是包含在System.Diagnostics. ProcessModule类中。  
97. m = Hex(myProcesses(zj).Modules(n).BaseAddress.ToInt32)‘转换成16进制  
98. .Add(m)  
99. m = Hex(myProcesses(zj).Modules(n).EntryPointAddress.ToInt32)  
100. .Add(m)  
101. .Add(myProcesses(zj).Modules(n).FileVersionInfo)  
102. .Add(myProcesses(zj).Modules(n).ModuleMemorySize)  
103. .Add(myProcesses(zj).Modules(n).ModuleName)  
104. End With  
105. End Sub  

最后对程做一点补充说明，各位读者，当你知道了如何编写这个程序时，你可能会想如果只是写一个单纯的这个程序你可能会觉得没什么意义，那如何才可以将这段程序发挥他更大的意义？就让我来告诉你。其实这段代码并不是我刻意编写的，而是一个局域网中的远程控制的一部分。扫描客户机上运行的进程，查看客户机的资源，将获得的信息发个服务器，并可以通过VB.NET Process类来关闭客户机上的进程，以便管理者对客户机进行管理。此外写这篇文章的另一个目的是希望读者更快的掌握.net中 System.Diagnostics.Process，System.Diagnostics.processThread，System.Diagnostics. ProcessModule类。在VB.NET和win2000通过 。

最后对程做一点补充说明，各位读者，当你知道了如