VB结束无用进程的代码

来源：百度知道 编辑：UC知道 时间：2024/05/17 02:40:12
如何用VB结束除关键进程外的（包括桌面管理进程）所有进程的构思。
有代码另加追分！

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer 'API
Dim s
s = "要结束的进程名"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name='" & s & "'")
For Each objProcess In colProcessList

objProcess.Terminate '结束进程
Next
Set objProcess = Nothing
Set colProcessList = Nothing
Set objWMIService = Nothing

看用户名吧，，

任务管理器不是更好？