用實例講述VB.NET Process類
在向大家詳細介紹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。句柄是非常有價值的資源。
- Public Class Form1
- Inherits System.Windows.Forms.Form
- Public zj
- Public myProcesses() As Process
- Public myProcess As Process
- Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click- ListBox1.Items.Clear()
- myProcesses = Process.GetProcesses()
- For Each myProcess In myProcesses
- ListBox1.Items.Add(myProcess.ProcessName)
- Next
- Label1.Text = ""
- Label1.Text = "本機共有" & ListBox1.Items.Count & "個進程在運行"
- End Sub
- Private Sub ListBox1_DoubleClick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ListBox1.DoubleClick- Dim i : Dim f As Integer : Dim h As Integer
- ListBox2.Items.Clear()
- zj = ListBox1.SelectedIndex
- Label2.Text = "進程" & ListBox1.Items.Item(zj) & "的相關信息"
- With ListBox2.Items
- If myProcesses(zj).MainWindowTitle = "" Then
- .Add("無相關主窗口")
- Else
- .Add(myProcesses(zj).MainWindowTitle)
- End If
- .Add(myProcesses(zj).BasePriority & "進程的基本優先級")
- .Add(myProcesses(zj).Handle.ToString & "進程的本機句柄")
- .Add(myProcesses(zj).HandleCount & "進程打開的句柄數")
- .Add(myProcesses(zj).Id & "進程的唯一標識符")
- .Add(myProcesses(zj).MachineName & "進程正在其上運行的計算機的名稱")
- .Add(myProcesses(zj).MainModule.ToString & "進程的主模塊")
- .Add(myProcesses(zj).MainWindowHandle.ToString & "進程主窗口的句柄")
- '.Add(myProcesses(zj).Modules & "")
- .Add(myProcesses(zj).NonpagedSystemMemorySize & "分配給此進程的未分頁的系統內存大小")
- .Add(myProcesses(zj).PagedMemorySize & "分頁的內存大小")
- .Add(myProcesses(zj).PagedSystemMemorySize & "分頁的系統內存大小")
- .Add(myProcesses(zj).PeakPagedMemorySize & "峰值分頁內存大小")
- .Add(myProcesses(zj).PeakVirtualMemorySize & "峰值虛擬內存大小")
- .Add(myProcesses(zj).PrivateMemorySize & "專用內存大小")
- .Add(myProcesses(zj).StartTime & "進程啟動的時間")
- .Add(myProcesses(zj).TotalProcessorTime.Seconds & "進程的總的處理器時間")
- .Add(myProcesses(zj).UsERProcessorTime.Seconds & "進程的用戶處理器時間")
- .Add(myProcesses(zj).VirtualMemorySize & "進程的虛擬內存大小")
- End With
- ListBox3.Items.Clear()
- TabPage1.Text = "進程" & ListBox1.Items.Item(zj) & "的基本信息"
- TabPage2.Text = "進程" & ListBox1.Items.Item(zj) & "相關的線程信息"
- TabPage3.Text = "進程" & ListBox1.Items.Item(zj) & "相關的模塊信息"
- '/////////////////////////////////////////////
- f = myProcesses(zj).Threads.Count
- Label4.Text = "進程" & ListBox1.Items.Item(zj) & "共有" & f & "個相關的線程，線程ID信息如下："
- Dim int, pk, m, n
- For n = 0 To f - 1
- ListBox3.Items.Add(myProcesses(zj).Threads(n).Id)
- Next
- '///////////////////////////////////////
- ListBox5.Items.Clear()
- Dim zha, kl
- zha = myProcesses(zj).Modules.Count
- Label5.Text = "與進程" & ListBox1.Items.Item(zj) & "共有" & zha & "個相關的模塊，模塊位置信息如下："
- For kl = 0 To zha - 1
- ListBox5.Items.Add(myProcesses(zj).Modules(kl).FileName)
- Next
- End Sub
- Private Sub ListBox3_DoubleClick(ByVal sender As Object,
ByVal e As System.EventArgs) Handles ListBox3.DoubleClick- ListBox4.Items.Clear()
- Dim f, n
- f = myProcesses(zj).Threads.Count
- n = ListBox3.SelectedIndex
- Label6.Text = "線程" & ListBox3.Items.Item(n) & "相關信息"
- With ListBox4.Items‘與進程相關的線程信息見System.Diagnostics.processThread類。
因為 Processes.threads屬性是返回thread對象數組而thread對象數組的實例是由ProcessThread類來創建，
thread 對象數組的信息是包含在System.Diagnostics. ProcessThread類中。- .Add(myProcesses(zj).Threads(n).BasePriority)
- .Add(myProcesses(zj).Threads(n).CurrentPriority)
- .Add(myProcesses(zj).Threads(n).PriorityLevel)
- .Add(myProcesses(zj).Threads(n).PrivilegedProcessorTime)
- .Add(myProcesses(zj).Threads(n).StartTime)
- .Add(myProcesses(zj).Threads(n).ThreadState.ToString)
- .Add(myProcesses(zj).Threads(n).TotalProcessorTime.Seconds)
- .Add(myProcesses(zj).Threads(n).UserProcessorTime.Seconds)
- .Add(myProcesses(zj).Threads(n).WaitReason.ToString)
- End With
- End Sub
- Private Sub ListBox5_DoubleClick(ByVal sender As Object,
ByVal e As System.EventArgs) Handles ListBox5.DoubleClick- ListBox6.Items.Clear()
- Dim f, n, m
- f = myProcesses(zj).Modules.Count
- n = ListBox5.SelectedIndex
- Label7.Text = "模塊" & ListBox5.Items.Item(n) & "相關信息"
- With ListBox6.Items‘與進程相關的模塊信息見System.Diagnostics. ProcessModule類，
因為Processes.Modules屬性是返回Modules對象數組而Modules對象數組的實例是由 ProcessModule類來創建，
Modules對象數組的信息是包含在System.Diagnostics. ProcessModule類中。- m = Hex(myProcesses(zj).Modules(n).BaseAddress.ToInt32)‘轉換成16進制
- .Add(m)
- m = Hex(myProcesses(zj).Modules(n).EntryPointAddress.ToInt32)
- .Add(m)
- .Add(myProcesses(zj).Modules(n).FileVersionInfo)
- .Add(myProcesses(zj).Modules(n).ModuleMemorySize)
- .Add(myProcesses(zj).Modules(n).ModuleName)
- End With
- End Sub
最后對程做一點補充說明，各位讀者，當你知道了如何編寫這個程序時，你可能會想如果只是寫一個單純的這個程序你可能會覺得沒什么意義，那如何才可以將這段程序發揮他更大的意義？就讓我來告訴你。其實這段代碼并不是我刻意編寫的，而是一個局域網中的遠程控制的一部分。掃描客戶機上運行的進程，查看客戶機的資源，將獲得的信息發個服務器，并可以通過VB.NET Process類來關閉客戶機上的進程，以便管理者對客戶機進行管理。此外寫這篇文章的另一個目的是希望讀者更快的掌握.net中 System.Diagnostics.Process，System.Diagnostics.processThread，System.Diagnostics. ProcessModule類。在VB.NET和win2000通過 。
【編輯推薦】
