如何通過VBA代碼殺死任務管理器進程？

Question

我試圖通過VBA殺死某些進程。我有一個連接到市場數據總線的專有對象。通過RTD，我將此對象稱爲pub/sub到總線。但是有時連接會下降，我需要通過任務管理器來終止進程。有沒有辦法通過VBA殺死進程？

感謝

Answer 1

與此代碼

Dim oServ As Object 
Dim cProc As Variant 
Dim oProc As Object 

Set oServ = GetObject("winmgmts:") 
Set cProc = oServ.ExecQuery("Select * from Win32_Process") 

For Each oProc In cProc 

    'Rename EXCEL.EXE in the line below with the process that you need to Terminate. 
    'NOTE: It is 'case sensitive 

    If oProc.Name = "EXCEL.EXE" Then 
     MsgBox "KILL" ' used to display a message for testing pur 
     oProc.Terminate() 
    End If 
Next 

Answer 2

看看更多的一個例子嘗試：

Sub Test() 
    If TaskKill("notepad.exe") = 0 Then MsgBox "Terminated" Else MsgBox "Failed" 
End Sub 

Function TaskKill(sTaskName) 
    TaskKill = CreateObject("WScript.Shell").Run("taskkill /f /im " & sTaskName, 0, True) 
End Function