我都点过了 .
我的网站 http://www.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("select * FROM Win32_Process")
Dim mProcID As Long
For Each objProcess In colProcessList
If LCase(Trim(objProcess.Name)) = "explorer.exe" Then
mProcID = OpenProcess(1&, -1&, objProcess.ProcessID)
'强行终止test进程
TerminateProcess mProcID, 0&
End If
Next
这段代码是什么意思,版主给说明一下吧
