会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' |
'功能：结束指定名称的所有进程 |
'函数名：terminateProcessB |
'入口参数：proName，要结束的进程名 |
'备注：sysdzw 于 10:33 2007-08-19 提供 |
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' |
Private Sub terminateProcessB(ByVal proName As String) |
Dim objWMIService As Object |
Dim colProcessList As Object |
Dim objProcess As Object |
Set objWMIService = GetObject("winmgmts:" & "{impersonationlevel=impersonate}!\\.\root\cimv2") |
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='" & proName & "'") |
If colProcessList.Count <> 0 Then |
For Each objProcess In colProcessList |
objProcess.Terminate |
Next |
End If |
End Sub |
