37 lines
1.6 KiB
VB.net
37 lines
1.6 KiB
VB.net
Imports System.ComponentModel
|
|
Imports DigitalData.Modules.Logging
|
|
Imports NLog
|
|
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
|