Public Class DemoService
    Inherits System.ServiceProcess.ServiceBase
 
 
    Public Shared Sub Main(ByVal args As String())
        Using svc As New DemoService
            If Array.IndexOf(args, "-debug") > -1 Then
                'Wir sind im Debugmodus
                Using f As New Form1
                    svc.OnStart(args)
                    Windows.Forms.Application.Run(f)
                    svc.OnStop()
                End Using
            Else
                'Wir sind im "Normalbetrieb". Anwendung läuf als Windowsdienst
                System.ServiceProcess.ServiceBase.Run(svc)
            End If
 
        End Using
    End Sub
 
    Public Sub New()
        MyBase.New()
        Me.InitializeComponent()
    End Sub
 
    Private Sub InitializeComponent()
        '
        'DemoService
        '
        Me.CanShutdown = True
        Me.ServiceName = "DemoService"
 
    End Sub
 
    'Wird beim Starten des Dienstes aufgerufen
    Protected Overrides Sub OnStart(ByVal args() As String)
        MyBase.OnStart(args)
    End Sub
 
    'Wird beim Stoppen des Dienstes aufgerufen, aber nicht beim Runterfahren 
    ' von Windows
    Protected Overrides Sub OnStop()
        MyBase.OnStop()
        Dim cn As New MySqlConnection
        Try
            Dim RKey As String = "Volatile Environment"
            Dim BasisKey As Microsoft.Win32.RegistryKey = _
              My.Computer.Registry.CurrentUser.OpenSubKey(RKey)
            Dim KeyName As String = BasisKey.Name
            Dim AppPC As String = My.Computer.Registry.GetValue(KeyName, _
              "LOGONSERVER", "Kein Eintrag")
            Dim AppName As String = My.Computer.Registry.GetValue(KeyName, _
            "NWUSERNAME", "Kein Eintrag")
            AppPC = AppPC.Substring(2)
 
            cn.ConnectionString = connstring
            cn.Open()
            Dim comsql As MySqlCommand = cn.CreateCommand
            Dim strText As String = "Dienst gestoppt"
            comsql.CommandText = "insert into login_info set benutzername = '" _
              & AppName & "', " & _
                                                            "client = '" & _
                                                            AppPC & "', " & _
                                                            "timestamp =" & _
                                                            "sysdate(), " & _
                                                            "info = '" & _
                                                            strText & "'"
            comsql.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            cn.Close()
        End Try
    End Sub
 
    'Wird Runterfahren von Windows aufgerufen, aber nicht beim beim Stoppen des 
    ' Dienstes 
    Protected Overrides Sub OnShutdown()
        MyBase.OnShutdown()
        Dim cn As New MySqlConnection
        Try
            Dim RKey As String = "Volatile Environment"
            Dim BasisKey As Microsoft.Win32.RegistryKey = _
              My.Computer.Registry.CurrentUser.OpenSubKey(RKey)
            Dim KeyName As String = BasisKey.Name
            Dim AppPC As String = My.Computer.Registry.GetValue(KeyName, _
              "LOGONSERVER", "Kein Eintrag")
            Dim AppName As String = My.Computer.Registry.GetValue(KeyName, _
            "NWUSERNAME", "Kein Eintrag")
            AppPC = AppPC.Substring(2)
 
            cn.ConnectionString = connstring
            cn.Open()
            Dim comsql As MySqlCommand = cn.CreateCommand
            Dim strText As String = "Dienst beendet"
            comsql.CommandText = "insert into login_info set benutzername = '" _
              & AppName & "', " & _
                                                            "client = '" & _
                                                            AppPC & "', " & _
                                                            "timestamp =" & _
                                                            "sysdate(), " & _
                                                            "info = '" & _
                                                            strText & "'"
            comsql.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            cn.Close()
        End Try
    End Sub
 
 
End Class