MS Service und WMDLL

DDTestService/MyNewService.Designer.vb

@@ -44,6 +44,7 @@ Partial Class MyNewService
         '
         'MyNewService
         '
+        Me.CanPauseAndContinue = True
         Me.CanShutdown = True
         Me.ServiceName = "MyNewService"
 

DDTestService/MyNewService.vb

@@ -5,17 +5,32 @@ Public Class MyNewService
     Private Shared _MyLoggerConfig As LogConfig
     Public Shared threadRunner As BackgroundWorker
     Private Shared Logger As Logger = LogManager.GetCurrentClassLogger
+    Private eventId As Integer = 1
     Protected Overrides Sub OnStart(ByVal args() As String)
         ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
         ' ausführen, damit der Dienst gestartet werden kann.
         _MyLoggerConfig = New LogConfig(LogConfig.PathType.CurrentDirectory)
         ' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
         Logger.Info("Service started")
+        ' Set up a timer to trigger every minute.  
+        Dim timer As System.Timers.Timer = New System.Timers.Timer()
+        timer.Interval = 60000 ' 60 seconds  
+        AddHandler timer.Elapsed, AddressOf Me.OnTimer
+        timer.Start()
+    End Sub
+    Private Sub OnTimer(sender As Object, e As Timers.ElapsedEventArgs)
+        ' TODO: Insert monitoring activities here.  
+        Logger.Info("Monitoring the System - eventId: " & eventId)
+        eventId = eventId + 1
     End Sub
-
     Protected Overrides Sub OnStop()
         ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
         Logger.Info("Service stopped")
     End Sub
-
+    Protected Overrides Sub OnPause()
+        Logger.Info("In OnPause...")
+    End Sub
+    Protected Overrides Sub OnContinue()
+        Logger.Info("In OnContinue...")
+    End Sub
 End Class