用實(shí)例講述VB.NET Process類(lèi)
在向大家詳細(xì)介紹VB.NET Process類(lèi)之前，首先讓大家了解下ptm是什么，然后全面介紹VB.NET Process類(lèi)。首先對(duì)文章名做一個(gè)解示，p是代表Process，即進(jìn)程，t是代表Thread，即線程，m是代表Module，即模塊。
在 win nt，win 2000，win xp中都有一個(gè)性能查看器，我們可以用它來(lái)查看計(jì)算機(jī)上正在運(yùn)行的程序，獲得與程序相關(guān)的主窗口名，和查看cpu和內(nèi)存，虛擬頁(yè)面的使用情況。但是對(duì)于更高要求的計(jì)算機(jī)使用人員來(lái)說(shuō)，這些是不夠的，特別是一些diy的發(fā)燒友，他們希望自己可以隨時(shí)對(duì)自己的計(jì)算機(jī)進(jìn)行查看，了解更多的信息從而可以知道自己的計(jì)算機(jī)是否應(yīng)該升級(jí)了，是否該對(duì)虛擬頁(yè)面做出調(diào)整，是否該換cpu，還是增加內(nèi)存。
由于以上情況，所以我們完全有理由做一個(gè)更好的查看器。在進(jìn)行編寫(xiě)代碼以前我們還需要知道一些基本知識(shí)，即proccess,thread,module。現(xiàn)在我們先來(lái)學(xué)習(xí)一下proecss的基本知識(shí)。
VB.NET Process類(lèi)的概念
用最簡(jiǎn)短的話來(lái)說(shuō)，進(jìn)程就是當(dāng)前運(yùn)行的應(yīng)用程序。運(yùn)行的應(yīng)用程序包括exe,dll這兩種文件。文件和進(jìn)程的差別在與，文件是保存在磁盤(pán)上的，是靜止的，計(jì)算機(jī)不會(huì)去調(diào)用文件，而進(jìn)程是非靜止的，正是由于著個(gè)原因，所以計(jì)算機(jī)每調(diào)用一個(gè)進(jìn)程就需要一定的資源。這些資源包括內(nèi)存，虛擬頁(yè)面，句柄，gdi……
在.net中我門(mén)可以用VB.NET Process類(lèi),(他位于System.Diagnostics空間中)提供對(duì)正在計(jì)算機(jī)上運(yùn)行的進(jìn)程的訪問(wèn)。使用VB.NET Process類(lèi)，可以獲取當(dāng)前運(yùn)行的進(jìn)程的列表，或者啟動(dòng)新的進(jìn)程。VB.NET Process類(lèi)用于訪問(wèn)系統(tǒng)進(jìn)程。初始化VB.NET Process類(lèi)后，可使用該類(lèi)來(lái)獲取有關(guān)當(dāng)前運(yùn)行的進(jìn)程的信息。此類(lèi)信息包括線程集、加載的模塊（.dll 和 .exe 文件）和性能信息（如進(jìn)程當(dāng)前使用的內(nèi)存量）。
系統(tǒng)進(jìn)程在系統(tǒng)上由其進(jìn)程標(biāo)識(shí)符唯一標(biāo)識(shí)。與許多 Windows 資源一樣，進(jìn)程也由其句柄標(biāo)識(shí)，而句柄在計(jì)算機(jī)上可能不唯一。句柄是表示資源標(biāo)識(shí)符的一般術(shù)語(yǔ)。即使進(jìn)程已退出，操作系統(tǒng)仍保持進(jìn)程句柄，該句柄通過(guò) Process 組件的 Handle 屬性訪問(wèn)。因此，可以獲取進(jìn)程的管理信息，如 ExitCode（通常，或者為零表示成功，或者為非零錯(cuò)誤代碼）和 ExitTime。句柄是非常有價(jià)值的資源。
- 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 = "本機(jī)共有" & ListBox1.Items.Count & "個(gè)進(jìn)程在運(yùn)行"
- 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 = "進(jìn)程" & ListBox1.Items.Item(zj) & "的相關(guān)信息"
- With ListBox2.Items
- If myProcesses(zj).MainWindowTitle = "" Then
- .Add("無(wú)相關(guān)主窗口")
- Else
- .Add(myProcesses(zj).MainWindowTitle)
- End If
- .Add(myProcesses(zj).BasePriority & "進(jìn)程的基本優(yōu)先級(jí)")
- .Add(myProcesses(zj).Handle.ToString & "進(jìn)程的本機(jī)句柄")
- .Add(myProcesses(zj).HandleCount & "進(jìn)程打開(kāi)的句柄數(shù)")
- .Add(myProcesses(zj).Id & "進(jìn)程的唯一標(biāo)識(shí)符")
- .Add(myProcesses(zj).MachineName & "進(jìn)程正在其上運(yùn)行的計(jì)算機(jī)的名稱(chēng)")
- .Add(myProcesses(zj).MainModule.ToString & "進(jìn)程的主模塊")
- .Add(myProcesses(zj).MainWindowHandle.ToString & "進(jìn)程主窗口的句柄")
- '.Add(myProcesses(zj).Modules & "")
- .Add(myProcesses(zj).NonpagedSystemMemorySize & "分配給此進(jìn)程的未分頁(yè)的系統(tǒng)內(nèi)存大小")
- .Add(myProcesses(zj).PagedMemorySize & "分頁(yè)的內(nèi)存大小")
- .Add(myProcesses(zj).PagedSystemMemorySize & "分頁(yè)的系統(tǒng)內(nèi)存大小")
- .Add(myProcesses(zj).PeakPagedMemorySize & "峰值分頁(yè)內(nèi)存大小")
- .Add(myProcesses(zj).PeakVirtualMemorySize & "峰值虛擬內(nèi)存大小")
- .Add(myProcesses(zj).PrivateMemorySize & "專(zhuān)用內(nèi)存大小")
- .Add(myProcesses(zj).StartTime & "進(jìn)程啟動(dòng)的時(shí)間")
- .Add(myProcesses(zj).TotalProcessorTime.Seconds & "進(jìn)程的總的處理器時(shí)間")
- .Add(myProcesses(zj).UsERProcessorTime.Seconds & "進(jìn)程的用戶(hù)處理器時(shí)間")
- .Add(myProcesses(zj).VirtualMemorySize & "進(jìn)程的虛擬內(nèi)存大小")
- End With
- ListBox3.Items.Clear()
- TabPage1.Text = "進(jìn)程" & ListBox1.Items.Item(zj) & "的基本信息"
- TabPage2.Text = "進(jìn)程" & ListBox1.Items.Item(zj) & "相關(guān)的線程信息"
- TabPage3.Text = "進(jìn)程" & ListBox1.Items.Item(zj) & "相關(guān)的模塊信息"
- '/////////////////////////////////////////////
- f = myProcesses(zj).Threads.Count
- Label4.Text = "進(jìn)程" & ListBox1.Items.Item(zj) & "共有" & f & "個(gè)相關(guān)的線程，線程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 = "與進(jìn)程" & ListBox1.Items.Item(zj) & "共有" & zha & "個(gè)相關(guān)的模塊，模塊位置信息如下："
- 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) & "相關(guān)信息"
- With ListBox4.Items‘與進(jìn)程相關(guān)的線程信息見(jiàn)System.Diagnostics.processThread類(lèi)。
因?yàn)?nbsp;Processes.threads屬性是返回thread對(duì)象數(shù)組而thread對(duì)象數(shù)組的實(shí)例是由ProcessThread類(lèi)來(lái)創(chuàng)建，
thread 對(duì)象數(shù)組的信息是包含在System.Diagnostics. ProcessThread類(lèi)中。- .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) & "相關(guān)信息"
- With ListBox6.Items‘與進(jìn)程相關(guān)的模塊信息見(jiàn)System.Diagnostics. ProcessModule類(lèi)，
因?yàn)镻rocesses.Modules屬性是返回Modules對(duì)象數(shù)組而Modules對(duì)象數(shù)組的實(shí)例是由 ProcessModule類(lèi)來(lái)創(chuàng)建，
Modules對(duì)象數(shù)組的信息是包含在System.Diagnostics. ProcessModule類(lèi)中。- m = Hex(myProcesses(zj).Modules(n).BaseAddress.ToInt32)‘轉(zhuǎn)換成16進(jìn)制
- .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
最后對(duì)程做一點(diǎn)補(bǔ)充說(shuō)明，各位讀者，當(dāng)你知道了如何編寫(xiě)這個(gè)程序時(shí)，你可能會(huì)想如果只是寫(xiě)一個(gè)單純的這個(gè)程序你可能會(huì)覺(jué)得沒(méi)什么意義，那如何才可以將這段程序發(fā)揮他更大的意義？就讓我來(lái)告訴你。其實(shí)這段代碼并不是我刻意編寫(xiě)的，而是一個(gè)局域網(wǎng)中的遠(yuǎn)程控制的一部分。掃描客戶(hù)機(jī)上運(yùn)行的進(jìn)程，查看客戶(hù)機(jī)的資源，將獲得的信息發(fā)個(gè)服務(wù)器，并可以通過(guò)VB.NET Process類(lèi)來(lái)關(guān)閉客戶(hù)機(jī)上的進(jìn)程，以便管理者對(duì)客戶(hù)機(jī)進(jìn)行管理。此外寫(xiě)這篇文章的另一個(gè)目的是希望讀者更快的掌握.net中 System.Diagnostics.Process，System.Diagnostics.processThread，System.Diagnostics. ProcessModule類(lèi)。在VB.NET和win2000通過(guò) 。
【編輯推薦】
