1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Private ServiceNameController As System.ServiceProcess.ServiceController
Private ServiceName As String = "Nom du service"
....
ServiceNameController = New System.ServiceProcess.ServiceController(ServiceName)
......
Private Sub GetServiceStatus()
Try
'rafraichi le statut
ServiceNameController.Refresh()
'test le statut
Select Case ServiceNameController.Status
Case ServiceProcess.ServiceControllerStatus.Running
lblStatut.Text = "Running...."
Case ServiceProcess.ServiceControllerStatus.Stopped
lblStatut.Text = "Stopped."
Case Else
lblStatut.Text = ""
End Select |