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
Partager