Imports System.IO

Imports System.ServiceProcess



Public Class FPDServ

    'Inherits System.ServiceProcess.servisebase



    Protected Overrides Sub OnStart(ByVal args() As String)

        ' Add code here to start your service. This method should set things

        ' in motion so your service can do its work.

        Dim f As TextWriter = New StreamWriter("c:\test.txt")

        f.WriteLine("on")

        f.Close()

        Timer1.Enabled = True

        Timer1.Interval = 1000

        EventLog.WriteEntry("FPDServe on")

    End Sub



    Protected Overrides Sub OnStop()

        ' Add code here to perform any tear-down necessary to stop your service.

        Timer1.Enabled = False

        Dim f As TextWriter = New StreamWriter("c:\test.txt")

        f.WriteLine("off")

        f.Close()

        EventLog.WriteEntry("FPDServe off")

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim f As IO.StreamWriter = New IO.StreamWriter("c:\test.txt", True)

        f.WriteLine("PerformanceCounter " & PerformanceCounter1.NextValue.ToString _

        & TimeOfDay.ToLongTimeString)

        f.Close()

    End Sub



    Protected Overrides Sub OnContinue()

        MyBase.OnContinue() 'auto gen

        Dim f As TextWriter = New StreamWriter("c:\test.txt")

        f.WriteLine("Continue")

        f.Close()

        EventLog.WriteEntry("FPDServe Continue")

    End Sub



    Protected Overrides Sub OnPause()

        MyBase.OnPause() 'auto gen

        Dim f As TextWriter = New StreamWriter("c:\test.txt")

        f.WriteLine("Pause")

        f.Close()

        EventLog.WriteEntry("FPDServe Paused")

    End Sub



End Class

Объяви в классе private переменную типа System.Threading.Timer. Создай два метода StartTimer и StopTimer. Добавь вызов StartTimer в методы OnStart и OnContinue, а вызов StopTimer в OnStop и в OnPause.

Создай метод c кодом из Timer1_Tick

Private Sub OnTimerTick(Object state)
...
End Sub

В методе StartTimer напиши код создающий экземпляр System.Threading.Timer. Надо вызывать конструктор с 4 аргументами: 1) адрес функции OnTimerTick 2) доп. аргумент для функции таймера (Nothing) 3) 0 4) 1000.

В методе StopTimer надо сделать вызов метода Timer.Change(Timeout.Infinite) - чтобы остановить таймер и присвоение переменной класса значения Nothing чтобы ее подобрал сборщик мусора.

Вроде все.

Любопытно. А что будет если закоментировать код в процедурах OnStart/OnStop/OnPause/OnContinue? То есть оставить голый скелет без реального кода. Если и такой вариант будет слетать, то проблема явно не в твоем коде.

Кстати, почему у тебя закоментировано наследование от ServiceBase?