COMMENT ACCÈDÉ À UN SERVICE

' WebSite:http://iblsysteme.dyndns.org
' Copyright (c) I.B.L Corps Systeme. Tous droits réservés.
Imports System.ServiceProcess
Public Class Apache
    'déclaration du controle de service
    Private msvc As New ServiceController
    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdStart.Click
        'Activer le timer2 pour validé la command start du service
        Timer2.Enabled = True
    End Sub
    Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
        'Activer le timer1 pour validé la command stop du service
        Timer1.Enabled = True
    End Sub
    Private Sub EnumServices()
        'liaison du nom du service au controle de service
        msvc.ServiceName = Label1.Text
        'Initialise et affiche le status du service courant
        Label2.Text = msvc.Status.ToString
        'affiche le boutton comme activé ou désactivé
        CmdStart.Enabled = (msvc.Status = ServiceControllerStatus.Stopped)
        cmdStop.Enabled = (msvc.CanStop AndAlso (Not msvc.Status = ServiceControllerStatus.Stopped))
        'Rafraichissement du service de controle et de même pour la fenêtre
        msvc.Refresh()
        Me.Refresh()
    End Sub
    Private Sub Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Initialisation des commandes du servive de votre choix qui se trouve sur label1.text
        EnumServices()
    End Sub
    Private Sub Main_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        'Réinitialisation des commandes du servive de votre choix qui se trouve sur label1.text
        EnumServices()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Activé la commande du boutton cmdStop
        On Error Resume Next
        msvc.Stop()
        msvc.Refresh()
        Me.Refresh()
        CmdStart.Enabled = (msvc.Status = ServiceControllerStatus.Stopped)
        Label2.BackColor = Color.Red
        cmdStop.Enabled = (msvc.CanStop AndAlso (Not msvc.Status = ServiceControllerStatus.Stopped))
        Timer1.Enabled = False
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        'Activé la commande du boutton cmdStart
        On Error Resume Next
        msvc.Start()
        msvc.Refresh()
        Me.Refresh()
        CmdStart.Enabled = (msvc.Status = ServiceControllerStatus.Stopped)
        Label2.BackColor = Color.Green
        cmdStop.Enabled = (msvc.CanStop AndAlso (Not msvc.Status = ServiceControllerStatus.Stopped))
        Timer2.Enabled = False
    End Sub
End Class