你想要的應(yīng)該就是這個吧

成都創(chuàng)新互聯(lián)公司成立與2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項目成都做網(wǎng)站、成都網(wǎng)站設(shè)計網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元潛山做網(wǎng)站,已為上家服務(wù),為潛山各地企業(yè)和個人服務(wù),聯(lián)系電話:18980820575
'獲取進程id
Dim?p?As?Integer?=?Shell(TextBox1.Text)
'獲取進程id對應(yīng)的句柄
Dim?h?As?IntPtr?=?System.Diagnostics.Process.GetProcessById(p).Handle
'顯示進程id和對應(yīng)的句柄
Debug.Print(p)
Debug.Print(h.ToString)
關(guān)于進程的問題你問了多次吧,為何不多看看Process
Dim p As Process() = Process.GetProcessesByName("qq")
If p.Count = 1 Then
Dim p1 As Process = p(0)
Dim m = p1.Modules '進程的所有模塊。
End If
Dim p As Process = Process.GetProcessById(Pid)‘通過pid取進程。
建議你用BT看
以下是BT下載地址
;pid=5387737mode=threadedshow=st=
;replyID=1258id=1258skin=1
我和僵尸有個約會III之永恒國度BT下載
附件: (410.88 K)
該附件被下載次數(shù) 10
附件下載地址: (26.29 K)
該附件被下載次數(shù) 533
我和僵尸有個約會III之永恒國度BT下載
附件: (410.88 K)
該附件被下載次數(shù) 10
附件下載地址: (26.29 K)
該附件被下載次數(shù) 533
『連續(xù)劇』 【我和僵尸有個約會Ⅳ不老傳說】【v-vb國語上部24集】【qqiu123發(fā)布】
『連續(xù)劇』 [我和僵尸有個約會1][dvd-rmvb] [粵語中文字幕] 全35集[晴空]
『連續(xù)劇』 ATV《我和僵尸有個約會II》(My Date With A Vampire)(43)粵語中文字幕
『連續(xù)劇』 [香港][我和僵尸有個約會3之永恒國度][國語47集全][RMVB/6.48G]
『連續(xù)劇』 [我和僵尸有個約會2][高清晰DVD-RMVB][43集全]
『連續(xù)劇』 [我和僵尸有個約會I][粵語][全集][VCD-RMVB]
『連續(xù)劇』 我和僵尸有個約會II13-28
『連續(xù)劇』 我和僵尸有個約會II5-9
『連續(xù)劇』 [我和僵尸有個約會3永恒國度](36全集)DVD畫質(zhì)TVrip-rmvb
『連續(xù)劇』 2004香港亞視新劇《我和僵尸有個約會III之永恒國度》全36集.粵語中文字幕.未下的快下
『連續(xù)劇』 我和僵尸有個約會III之永恒國度36.大結(jié)局.粵語.leopold.tvrip-vb.YYtvo
『連續(xù)劇』 2004香港亞視新劇《我和僵尸有個約會III之永恒國度》第36集.大結(jié)局.粵語中文字幕
『連續(xù)劇』 2004香港亞視新劇《我和僵尸有個約會III之永恒國度》第35集.粵語中文字幕
『連續(xù)劇』 我和僵尸有個約會3國語25-35
『連續(xù)劇』 2004香港亞視新劇《我和僵尸有個約會III之永恒國度》第34集.粵語中文字幕
『連續(xù)劇』 2004香港亞視新劇《我和僵尸有個約會III之永恒國度》第33集.粵語中文字幕
『連續(xù)劇』 我和僵尸有個約會3之永恒國度粵語33集
『連續(xù)劇』 [YAOYAO@MM137.com][我和僵尸有個約會II][粵語][中文字幕][RMVB]
『連續(xù)劇』 2004香港亞視新劇《我和僵尸有個約會III之永恒國度》第32集.粵語中文字幕
『連續(xù)劇』 《我和僵尸有個約會3-永恒國度》32 TV清晰版 粵語發(fā)音+中文字幕
使用wmi
類“Win32_Processor”中LoadPercentage屬性為當前的cpu使用率
示例代碼: Private Sub Timer1_Timer()
Dim WMI服務(wù) As Object
Dim 對象 As Object
Dim 子對象 As Object
Dim 電腦名 As String
Dim 刷新 As Long
刷新 = 0
電腦名 = "." '表示本地計算機
Set WMI服務(wù) = GetObject("winmgmts://" 電腦名 "/root/cimv2")
Set 對象 = WMI服務(wù).InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子對象 In 對象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子對象.Name "[" 子對象.CurrentClockSpeed "Hz] 使用率:" _
子對象.LoadPercentage "%"
Next
End Sub
分享題目:pidvb.net的簡單介紹
當前路徑:http://chinadenli.net/article14/dodhdde.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應(yīng)網(wǎng)站、網(wǎng)站建設(shè)、虛擬主機、建站公司、軟件開發(fā)、用戶體驗
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)