Géré l'activité d'un service comme le server Apache
Accédé à un service particulier dans le gestionnaire
Activé et désactiver ce service
Affichier le status du service
Source / Exemple :
' 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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.