Imports System.ServiceProcess
 
Public Class Service1
    Inherits System.ServiceProcess.ServiceBase
 
#Region " Vom Component Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf wird vom Komponenten-Designer benötigt.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungscode hinter dem InitializeComponent( 
        ' )-Aufruf ein
 
    End Sub
 
    'UserService überschreibt den Löschvorgang zum Bereinigen der 
    ' Komponentenliste.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Der Haupteinstiegspunkt für den Vorgang
    <MTAThread()> _
    Shared Sub Main()
        Dim ServicesToRun() As System.ServiceProcess.ServiceBase
 
        ' Innerhalb desselben Prozesses können mehrere NT-Dienste ausgeführt 
        ' werden. Um einen
        ' weiteren Dienst zum Prozess hinzuzufügen, änderen Sie die folgende 
        ' Zeile,
        ' um ein zweites Dienstprojekt zu erstellen. Z.B.,
        '
        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New 
        ' Service1, New MySecondUserService}
        '
        ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1}
 
        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
    End Sub
 
    ' Für Komponenten-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    ' HINWEIS: Die folgende Prozedur wird vom Komponenten-Designer benötigt.
    ' Sie kann mit dem Komponenten-Designer modifiziert werden. Verwenden Sie 
    ' nicht
    ' den Code-Editor zur Bearbeitung.
    Public WithEvents TiZeit As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.TiZeit = New System.Windows.Forms.Timer(Me.components)
        '
        'TiZeit
        '
        Me.TiZeit.Enabled = True
        '
        'Service1
        '
        Me.ServiceName = "Service1"
 
    End Sub
 
#End Region
 
    Public Shared logfile As String = ("c:\temp\test.log")
    Dim clstest As New clstest()
    Dim clsmain As New clsmain()
    Dim timer As Integer = 3000
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Hier Code zum Starten des Dienstes einfügen. Diese Methode sollte 
        ' Vorgänge
        ' starten damit der Dienst richtig arbeiten kann.
        clstest.logging("DIENST GESTARTET....")
        form_load()
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Hier Code zum Ausführen notwendiger Löschvorgänge zum Anhalten des 
        ' Dienstes einfügen.
        TiZeit.Stop()
        clstest.logging("Timer angehalten")
        clstest.logging("DIENST BEENDET....")
    End Sub
 
    Private Sub form_load()
        TiZeit.Interval = timer
        TiZeit.Enabled = True
        clstest.logging("Timer eingerichtet :" & timer / 1000 & " sec")
        TiZeit.Start()
        clstest.logging("Timer gestartet")
    End Sub
 
    Public Sub TiZeit_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TiZeit.Tick
        MsgBox("Tick")
        clstest.logging("Dienst schläft....(" & timer / 1000 & "sec")
    End Sub
 
 
End Class

Mfg

Michael