你想要的应该就是这个吧
成都创新互联公司成立与2013年，是专业互联网技术服务公司，拥有项目成都做网站、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元潜山做网站,已为上家服务,为潜山各地企业和个人服务,联系电话:18980820575
'获取进程id
Dim p As Integer = Shell(TextBox1.Text)
'获取进程id对应的句柄
Dim h As IntPtr = System.Diagnostics.Process.GetProcessById(p).Handle
'显示进程id和对应的句柄
Debug.Print(p)
Debug.Print(h.ToString)
关于进程的问题你问了多次吧，为何不多看看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)
该附件被下载次数 10
附件下载地址： (26.29 K)
该附件被下载次数 533
我和僵尸有个约会III之永恒国度BT下载
附件: (410.88 K)
该附件被下载次数 10
附件下载地址： (26.29 K)
该附件被下载次数 533
『连续剧』 【我和僵尸有个约会Ⅳ不老传说】【v-vb国语上部24集】【qqiu123发布】
『连续剧』 [我和僵尸有个约会1][dvd-rmvb] [粤语中文字幕] 全35集[晴空]
『连续剧』 ATV《我和僵尸有个约会II》(My Date With A Vampire)(43)粤语中文字幕
『连续剧』 [香港][我和僵尸有个约会3之永恒国度][国语47集全][RMVB/6.48G]
『连续剧』 [我和僵尸有个约会2][高清晰DVD-RMVB][43集全]
『连续剧』 [我和僵尸有个约会I][粤语][全集][VCD-RMVB]
『连续剧』 我和僵尸有个约会II13-28
『连续剧』 我和僵尸有个约会II5-9
『连续剧』 [我和僵尸有个约会3永恒国度]（36全集）DVD画质TVrip－rmvb
『连续剧』 2004香港亚视新剧《我和僵尸有个约会III之永恒国度》全36集.粤语中文字幕.未下的快下
『连续剧』 我和僵尸有个约会III之永恒国度36.大结局.粤语.leopold.tvrip-vb.YYtvo
『连续剧』 2004香港亚视新剧《我和僵尸有个约会III之永恒国度》第36集.大结局.粤语中文字幕
『连续剧』 2004香港亚视新剧《我和僵尸有个约会III之永恒国度》第35集.粤语中文字幕
『连续剧』 我和僵尸有个约会3国语25-35
『连续剧』 2004香港亚视新剧《我和僵尸有个约会III之永恒国度》第34集.粤语中文字幕
『连续剧』 2004香港亚视新剧《我和僵尸有个约会III之永恒国度》第33集.粤语中文字幕
『连续剧』 我和僵尸有个约会3之永恒国度粤语33集
『连续剧』 [YAOYAO@MM137.com][我和僵尸有个约会II][粤语][中文字幕][RMVB]
『连续剧』 2004香港亚视新剧《我和僵尸有个约会III之永恒国度》第32集.粤语中文字幕
『连续剧』 《我和僵尸有个约会3－永恒国度》32 TV清晰版 粤语发音+中文字幕
使用wmi
类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率
示例代码： Private Sub Timer1_Timer()
Dim WMI服务 As Object
Dim 对象 As Object
Dim 子对象 As Object
Dim 电脑名 As String
Dim 刷新 As Long
刷新 = 0
电脑名 = "." '表示本地计算机
Set WMI服务 = GetObject("winmgmts://" 电脑名 "/root/cimv2")
Set 对象 = WMI服务.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
