22 lines
911 B
VB.net
22 lines
911 B
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
|
|
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")
|
|
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
|
|
|
|
End Class
|