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. PublicClassForm1
5. InheritsSystem.Windows.Forms.Form
6. Publiczj
7. PublicmyProcesses()AsProcess
8. PublicmyProcessAsProcess
9. PrivateSubButton1_Click(ByValsenderAsSystem.Object,
   ByValeAsSystem.EventArgs)HandlesButton1.Click
10. ListBox1.Items.Clear()
11. myProcesses=Process.GetProcesses()
12. ForEachmyProcessInmyProcesses
13. ListBox1.Items.Add(myProcess.ProcessName)
14. Next
15. Label1.Text=""
16. Label1.Text="本机共有"&ListBox1.Items.Count&"个进程在运行"
17. EndSub
19. PrivateSubListBox1_DoubleClick(ByValsenderAsSystem.Object,
    ByValeAsSystem.EventArgs)HandlesListBox1.DoubleClick
20. Dimi:DimfAsInteger:DimhAsInteger
21. ListBox2.Items.Clear()
22. zj=ListBox1.SelectedIndex
23. Label2.Text="进程"&ListBox1.Items.Item(zj)&"的相关信息"
24. WithListBox2.Items
25. IfmyProcesses(zj).MainWindowTitle=""Then
26. .Add("无相关主窗口")
27. Else
28. .Add(myProcesses(zj).MainWindowTitle)
29. EndIf
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. EndWith
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. Dimint,pk,m,n
57. Forn=0Tof-1
58. ListBox3.Items.Add(myProcesses(zj).Threads(n).Id)
59. Next
60. '///////////////////////////////////////
62. ListBox5.Items.Clear()
63. Dimzha,kl
64. zha=myProcesses(zj).Modules.Count
65. Label5.Text="与进程"&ListBox1.Items.Item(zj)&"共有"&zha&"个相关的模块，模块位置信息如下："
66. Forkl=0Tozha-1
67. ListBox5.Items.Add(myProcesses(zj).Modules(kl).FileName)
68. Next
69. EndSub
71. PrivateSubListBox3_DoubleClick(ByValsenderAsObject,
    ByValeAsSystem.EventArgs)HandlesListBox3.DoubleClick
72. ListBox4.Items.Clear()
73. Dimf,n
74. f=myProcesses(zj).Threads.Count
75. n=ListBox3.SelectedIndex
76. Label6.Text="线程"&ListBox3.Items.Item(n)&"相关信息"
77. WithListBox4.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. EndWith
88. EndSub
90. PrivateSubListBox5_DoubleClick(ByValsenderAsObject,
    ByValeAsSystem.EventArgs)HandlesListBox5.DoubleClick
91. ListBox6.Items.Clear()
92. Dimf,n,m
93. f=myProcesses(zj).Modules.Count
94. n=ListBox5.SelectedIndex
95. Label7.Text="模块"&ListBox5.Items.Item(n)&"相关信息"
96. WithListBox6.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. EndWith
105. EndSub

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!