如何在VB6中关闭一个带壳的进程

Shell "taskkill /IM vb6.exe /F", vbHide

Dim objWMIService, objProcess, colProcess

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & _
    ".\\root\\cimv2")

Set colProcess = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'vb6.exe'")

For Each objProcess in colProcess
    objProcess.Terminate()
Next