Détection fermeture d'un service

Version imprimable

21/09/2010, 17h39
koyot3

Détection fermeture d'un service

Bonjour à tous,

Je crée un service en VB, un peu en suivant le tutoriel suivant :
http://webman.developpez.com/article...windows/vbnet/

Mon service fonctionne, pas de soucis là dessus !
Le problème arrive quand je ferme brutalement le service depuis le gestionnaire des tâches windows....
La méthode Protected Overrides Sub OnStop() n'est pas levée, tout comme ShutDown()...

Quelqu'un a-t-il une idée de comment faire pour récupérer l'evènement pour exécuter une action juste avant la fermeture....

Merci d'avance

@+
21/09/2010, 18h29
Bluedeep

Citation:

Envoyé par koyot3

Quelqu'un a-t-il une idée de comment faire pour récupérer l'evènement pour exécuter une action juste avant la fermeture....

En fermant le service proprement via le SCM.

Comme le "kill" du process via le task manager ne peut être fait que par un administrateur, qui est donc quelqu'un censé savoir ce qu'il fait, ce n'est pas un problème (ou alors, c'est un problème de politique de sécurité du SI, pas un problème technique).
21/09/2010, 19h21
Pol63

tu fais un service qui surveille le premier ^^ (certains virus font ca)
22/09/2010, 09h14
koyot3

Citation:

Envoyé par Bluedeep

En fermant le service proprement via le SCM.

Comme le "kill" du process via le task manager ne peut être fait que par un administrateur, qui est donc quelqu'un censé savoir ce qu'il fait, ce n'est pas un problème (ou alors, c'est un problème de politique de sécurité du SI, pas un problème technique).

normalement, cette fermeture est assez rare mais c'est histoire de blinder le système..
les utilisateurs finaux seront sans doute administrateur de leur poste, mais pas forcément des experts, plutôt des touches à tout donc ....

Citation:

Envoyé par Pol63

tu fais un service qui surveille le premier ^^ (certains virus font ca)

c'est déjà ce qui est en place avec un vieux KeepAlive...
un service esclave interroge son maître pour savoir s'il est encore "vivant" :mrgreen:
je cherchais un truc plus propre : ping sur un tcp ???

en tout cas, merci à vous deux pour vos réponses
22/09/2010, 09h40
Pol63

le plus propre reste de récupérer la variable service et sur l'interval faire .refresh et regarder .state
ajouter la référence servicemodel ou serviceprocess

et si le .state vaut stopped tu fais .start tout simplement ^^

et voir pour que le service principal surveille aussi son surveillant
22/09/2010, 09h43
Bluedeep

Citation:

Envoyé par koyot3

les utilisateurs finaux seront sans doute administrateur de leur poste,

C'est peut être là qu'il faut chercher le problème. :D
22/09/2010, 09h44
Bluedeep

Citation:

Envoyé par Pol63

le plus propre reste de récupérer la variable service et sur l'interval faire .refresh et regarder .state
ajouter la référence servicemodel ou serviceprocess

et si le .state vaut stopped tu fais .start tout simplement ^^

et voir pour que le service principal surveille aussi son surveillant

Ca, ça permettra que le service soit remis en marche mais n'empêchera pas un arrêt "sale".
22/09/2010, 09h51
koyot3

pour les utilisateurs, on m'a toujours dit : imagine que tu as une chèvre devant l'écran, elle doit savoir s'en servir :aie:
donc... ça annonce la couleur ...

par contre, le système avec .state je ne connaissais pas...
je vais essayer de creuser ça pour trouver un exemple !

merci ! :ccool:
22/09/2010, 09h52
Pol63

en fait il est possible d'accéder à la liste des services de windows
22/09/2010, 10h06
koyot3

tu as un exemple ?
moi j'ai

Code:

System.Diagnostics.Process.GetProcessesByName("mon nom de service")

Seul hic, celui qui observe et l'observé sont situés sur 2 machines différentes ...

donc soit je trouve un moyen de faire un ping sur un tcp, soit une méthode threadée genre KeepAlive..

je reste cependant ouvert à d'autres propositions ou suggestions :)
22/09/2010, 10h30
Pol63

ca ressemble à ca
system.servicemodel.servicecontroler.getservices()
tu parcours pour celui qui a le name que tu connais
puis tu as une instance de servicecontroler sur laquelle tu as .state .start .stop etc...
et comme je disais, il faut ajouter une référence au projet

une des possibles solutions testée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim tcpClient As TcpClient = Nothing
Try
     tcpClient = New TcpClient("127.0.0.1", 8080)
Catch
End Try
 
If tcpClient IsNot Nothing Then
     Console.WriteLine("serveur ok")
Else
     Console.WriteLine("serveur indisponible")
End If