Comment accèdé à un service

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 185 fois - Téléchargée 16 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
dimanche 21 décembre 2008
Statut
Membre
Dernière intervention
15 mars 2009

c tres bien
Messages postés
12
Date d'inscription
samedi 1 juillet 2006
Statut
Membre
Dernière intervention
2 juin 2009

Sympa dans l'idée mais inutilisable tel quel (ou très chiant, autant mettre uniquement les 5 lignes intéressantes...)
Pas de zip, ce qui serait franchement plus pratique :
il faut ajouter une référence, les boutons renommés, les labels, les timers... bref.
Comme l'a dit The Meteorologist, difficile de trouver l'envie d'essayer ton code...
Messages postés
233
Date d'inscription
jeudi 18 janvier 2007
Statut
Membre
Dernière intervention
3 novembre 2011
1
Bien le problème c'est qu'on est tous un peu la flemme ici ^^ Si tu veux motiver les gens à essayer ton code je te conseille de mettre un zip et peut-être de soigner un peu l'orthographe par la même occasion.
Messages postés
43
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
23 octobre 2009

Pas difficile tu créé une nouvelle forms puis tu place 2 bouton et tu les renomes le 1er cmdStop et le 2eme cmdStart
puis tu place deux label et puis c'est tous
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
Rien que dans le titre : accéder
Afficher les 6 commentaires

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.