Comment arrêter un exécutable externe dans VB.NET?

Question

Je développe un service Windows en Visual Basic, qui commencera un * .exe au démarrage. Ça marche plutôt bien. Maintenant, comment puis-je arrêter ce * .exe tout en arrêtant ce service Windows? Mon code est le suivant:

Public Class MyWinService 
Dim RetVal 
Protected Overrides Sub OnStart(ByVal args() As String) 
    EventLog.WriteEntry("MyService Started") 

    RetVal = Shell("JobService.exe", 1) 

End Sub 

Protected Overrides Sub OnStop() 
    EventLog.WriteEntry("MyService Stopped") 
End Sub 

Protected Overrides Sub OnPause() 
    EventLog.WriteEntry("MyService Paused") 
End Sub 

Protected Overrides Sub OnContinue() 
    EventLog.WriteEntry("MyService Resumed") 
End Sub 

Protected Overrides Sub OnCustomCommand(ByVal command As Integer) 
    If command = 200 Then 
     EventLog.WriteEntry("Custom Command 200 invoked") 
    ElseIf command = 210 Then 
     EventLog.WriteEntry("Custom Command 210 invoked") 
    End If 
End Sub 

Private Sub Process1_Exited(ByVal sender As System.Object, ByVal e As System.EventArgs) 

End Sub 
End Class 

Answer 1

Utilisez la méthode Process.Kill. Cela suppose que vous avez le handle de processus de Process.Start, ou que vous l'avez obtenu d'une autre manière.

Comme vous l'avez déjà l'ID du processus de la commande Shell, vous pouvez récupérer le processus:

Dim myProcess = Process.GetProcessById(RetVal) 

Tuez-le:

myProcess.Kill()