Développement d'un service windows
Bonjour a tout le monde
J’espère que ce temps maussade n’ampute pas votre humeur :P
Ci dessous le code d'un test pour mettre en place un service, mais mon fichier qui devrait apparaitre dans le rép c:\intel\ n'apparait pas
Quelqu'un voit la faute , ou autre chose, sachant que la mise en place du service se fait correctement et que le service démarre bien.
Le service est en mode démarrage " mode manuel " et utilisateur LocalService.
Merci de votre aide
Code:
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
| Imports System.IO.File
Public Class TDGServices
Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
Timer1.Enabled = True
Timer1.Interval = 15000
End Sub
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
FileOpen(1, "c:\intel\TESTFILE.txt", OpenMode.Output) ' Open file for output.
Write(1, "This is a test.") ' Print text to file.
FileClose(1)
End Sub
End Class |