Bonjour,

J'ai crée un service windows tt ce qu il y a de plus basic et je voudrais qu il me lance une fonction a interval regulier

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
27
28
29
30
31
32
 
 
Public Class ServiceVP
    Dim timervp As New System.Windows.Forms.Timer
 
    Protected Overrides Sub OnStart(ByVal args() As String)
 
        If Not Diagnostics.EventLog.SourceExists("ServiceVPP") Then
            Diagnostics.EventLog.CreateEventSource("ServiceVPP", "JrnlVPP")
        End If
        Me.AutoLog = True
        JEvent.Source = "JrnlVPP"
        JEvent.WriteEntry("démarrage du service")
 
        timervp.Interval = 6000
        timervp.Enabled = True
        timervp.Start()
 
        AddHandler timervp.Tick, AddressOf OnTimerEvent
 
    End Sub
 
    Protected Overrides Sub OnStop()
        JEvent.WriteEntry("Arrêt du service")
        timervp.Enabled = False
    End Sub
 
    Public Sub OnTimerEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
        JEvent.WriteEntry("Tick")
    End Sub
 
End Class
Je suis censé avoir Tick qui s affiche dans mon journal toutes les 6 secondes mais non je n ai que "demarrage service" qd je demarre le service et "Arrêt du service" quand je l'arrete

Merci!