Comment puis-je tuer les processus du gestionnaire des tâches par code VBA?

Je suis en train d'essayer de tuer certains processus par VBA. J'ai une propriété de l'objet qui se connecte à un marché du bus de données. Par le biais de RDT j'appelle cet objet pub/sub pour le bus. Cependant, parfois, la connexion tombe et j'ai besoin de tuer le processus via le gestionnaire des tâches. Est-il un moyen de tuer un processus par VBA?

Grâce

  • Quels processus? Je n'ai pas downvote, mais souvent, ces silencieux downvoters allons le faire parce que c'est parce que vous ne montrez pas vos efforts jusqu'à présent(ou d'expliquer pourquoi vos résultats de google ne sont pas utiles) pour résoudre le problème. Il vous aidera, vous et le gars à côté, avec le problème spécifique. Veuillez regardez
InformationsquelleAutor Chris Hanlon | 2014-10-10
  1. 16

    Essayer avec ce code

    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
    • Un peu plus simple, vous pouvez utiliser: Set cProc = oServ.ExecQuery("Select * from Win32_Process Where Name = 'EXCEL.EXE'") pour qu'Excel processus.
    • errReturnCode Variable Not defined
    • Lopez prendre un coup d'oeil maintenant, j'ai édité le code
    InformationsquelleAutor Gianluca Colombo
  2. 9

    Prendre un coup d'oeil à un exemple de plus:

    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
    InformationsquelleAutor omegastripes
  3. 1

    Vous pouvez effectuer cela, de cette façon:

    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  'kill exe
    End If
Next
    InformationsquelleAutor user10769870
  4. 0
    Sub Kill_Excel()

Dim sKillExcel As String

sKillExcel = "TASKKILL /F /IM Excel.exe"
Shell sKillExcel, vbHide

End Sub
    • S'il vous plaît ajouter quelques explications à votre code - pour moi, ça ressemble à une réponse qui a déjà été posté plus de deux ans
    InformationsquelleAutor Karuna Hebsur