Public ServiceAlias As New System.ServiceProcess.ServiceController Public EcouteService As New System.ServiceProcess.ServiceBase Public TabArgs(1) As String Private Sub Bouton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bouton.Click Dim LeBouton As Windows.Forms.Button = sender ' Lancement du service avec l'action verifie pour l'exe cliqué TabArgs(0) = "verifie" TabArgs(1) = LeBouton.Tag ServiceAlias.MachineName = "." ServiceAlias.ServiceName = "Alias" EcouteService.ServiceName = "Alias" ServiceAlias.Start(TabArgs) While Not ServiceAlias.Status.Equals(System.ServiceProcess.ServiceControllerStatus.Stopped) ServiceAlias.Refresh() End While MsgBox(EcouteService.ExitCode) End Sub
Protected Overrides Sub OnStop() Me.ExitCode = 42 ' Ajoutez ici le code pour effectuer les destructions nécessaires à l'arrêt de votre service. End Sub