Discussion :

[thierry007]

Bonjour a tous

Voila un petit morceau du code que je test ( un service )
L'enregistrement avec installutil se fait correctement
le service démarre correctement, mais l'événement ne se déclenche pas
Ais-je fait une bourde ou rater quelques chose: quelqu'un a une idée
ou un exemple qui traite d'évenement déclencheur.
Merci bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 Dim TimeRestart As Integer=12 
 Dim NoStopRestartMachine As String = "S"
 
 Protected Overrides Sub OnStart(ByVal args() As String)
 
            '1 minute
            TimerRestart.Interval = 60 *  1000
            TimerRestart.Enabled = True
 
      End Sub
 
   Private Sub TimerRestart_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRestart.Tick
 
            'Arrete le Pc
            If NoStopRestartMachine = "S" And CInt(TimeOfDay.Hour) >= CInt(TimeRestart) Then
                  Shell("Shutdown -s -t 60 -f")
 
            End If
 
            'Restart le Pc
            If NoStopRestartMachine = "R" And CInt(TimeOfDay.Hour) >= CInt(TimeRestart) Then
                  Shell("Shutdown -r -t 60 -f")
            End If
 
End Sub

[Kropernic]

Je pense que tu as pris le timer du namespace Winforms. Il faut prendre le timer qui se trouve dans Timers. Et du coup, ce n'est plus l'event tick mais elapsed.

Tu verras, ça va tout de suite mieux fonctionner ;-)
(j'avais fait exactement la même chose que toi quand j'ai créé mon premier service ^^)

[thierry007]

(j'avais fait exactement la même chose que toi quand j'ai créé mon premier service ^^)

La preuve en est que le savoir s'accroit en le partageant
Grand Merci et content de t'avoir eu sur le forum

a+

[Kropernic]

Tu es le bienvenu ;-)

[thierry007]

Le tout fonctionne bien , adapté a mon projet, je suis presque bon, sauf un petit stress: le service est en démarage automatique avec le compte localsystem, mais il faut que je le démarre manuellement
J'ai regardé sur google mais pas d'exemples ou explications probantes
Quelqu' un vois le pourquoi ?

Merci bien

[Kropernic]

Tu peux détailler un peu plus ? Je ne suis pas sûr de bien comprendre :-/

[thierry007]

Bonjour Griftou

En fait le service fonctionne bien, il s'installe avec installutil.
Je dois le démarrer manuellement ( pourtant en startup 'automatique' dans la config, avec le compte LocalSystem ).
Il effectue les tâches demandées, dont une : redémarrer le Pc a une heure précise, mais lors du démarrage du Pc le service lui ne redémarre pas, je dois le redémarer en allant dans le gestionnaire de service

[Kropernic]

Qu'il ne démarre pas directement après l'installation, à priori c'est normal.

Qu'il ne démarre pas directement après un reboot de la machine, ça ce n'est pas normal ^^.

Quand tu vas voir les propriétés du service dans le gestionnaire de service, le startup est bien automatique là aussi ?

Y a pas un truc dans ton code qui le modifie ?

[thierry007]

Le startup est bien en automatique et dans le code rien qui concerne le démarrage ou le stop
Y a t'il quelques chose a mettre dans l'initialisation du Main

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 ' Point d'entrée principal du processus
      <MTAThread()> _
      <System.Diagnostics.DebuggerNonUserCode()> _
      Shared Sub Main()
            Dim ServicesToRun() As System.ServiceProcess.ServiceBase
 
 
            ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service}
 
            System.ServiceProcess.ServiceBase.Run(ServicesToRun)
      End Sub

[Kropernic]

Non, je n'ai rien de plus que toi dans le main.

Honnêtement, là comme ça, je ne vois pas. Y a forcément quelque chose qui cloche mais quoi.... ?

Sorry de pas savoir t'aider plus à ce sujet :-/

[thierry007]

je t'ai envoyé le code en MP si tu vois un stut

[Kropernic]

Ah, je vais aller regarder alors ^^

EDIT : T'es sûr que c'est bien à moi que tu l'as envoyé ? Car je n'ai toujours rien. Cela me semble louche

[thierry007]

bien sur ton MP de Developpez.com

[thierry007]

dans tes messages privés

[Kropernic]

Bin non, je n'ai rien...

Je t'envoie un mon adresse mail par mp

[Pol63]

essaye avec service réseau comme utilisateur

vérifies le journal windows voir si le service a pas démarré et aurait planté

[thierry007]

Bonjour Pol63

Non ,dans l'eventlog rien si ce n'est que j'ai l'info comme quoi le service a démarré a tel heure

J'ai essayé avec le compte LocalSystem et Network -> et non

Après installutil service.exe je vais dans MMC voir les servicez et il ne démarre pas seul.

[Pol63]

et tu as fait un fichier d'installeur sur ton fichier service dans vs ?

[thierry007]

oui, l'installeur a été ajouté au projet ( sans cela installutil ne fonctionnerais pas )

[Pol63]

ah bah c'est pas de chances alors ...
moi j'ai fait un service et il démarre très bien tout seul ^^

la différence c'est peut etre que j'utilise pas de timers mais un thread avec boucle infinie et sleep (m'enfin ca doit revenir au meme les timers étant sur un thread séparé)
si t'as utilisé le timers.timer tu peux aussi tester le 3ème du framework threading.timer