90分-高手接招：如何关掉上一个运行的程序,就象在任务管理器中结束那样？--在线等》》》》》》》》

Question

如何关掉上一个运行的程序,就象在任务管理器中关掉那样（这个程序只是在后台运行，只能在任务管理器中找到，我也知道他的路径,比如为：c:\eg\eg.exe 并且是强行关掉，不用确定？--在线等》》》》》》》》)

Answer 1

Public Sub subKillProcess(ByVal strProcess As String)    Dim strComputer As String
    Dim objWMIService As Object
    Dim colProcessList
    Dim objProcess As Object
    
    On Error Resume Next
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'        strProcess = "Excel.exe"
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = '" & strProcess & "'")
    For Each objProcess In colProcessList
        objProcess.Terminate
    Next
    
End Sub
'调用
Call subKillProcess("Excel.exe")稍一改即可