Windows Service, timer doesn't tick

[Morten Snedker]

Others had the same problem and I understand that I have to use the
System.Timers.T imer instead for the one for forms. So that's what I
do, but still it doesn't trigger:

'--code begin
Imports System.Net
Imports System.Net.Sock ets
Imports System.Net.Dns
Imports System.Text
Imports System.IO
Public Class Service1

Private bTrigger As Boolean
Private myTimer As New System.Timers.T imer

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

With myTimer
.Interval = 10000
.Enabled = True
.Start()
End With

LogFile(Now & ": " & vbTab & "Service started")

End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop
your service.
LogFile(Now & ": " & vbTab & "Service stopped")
End Sub

Private Sub myTimer_Tick(By Val sender As System.Object, ByVal e As
System.EventArg s)

LogFile(Now & ": " & vbTab & "Timer trigger - do nothing")

If Minute(Now) = 33 Then
LogFile(Now & ": " & vbTab & "Timer trigger - run code")
If bTrigger = False Then ExecuteWOL()
End If

End Sub
....
'---code end

So, the file should be written to every 10 seconds, but it doesn't.
The file is correctly written to upon start/stop of service.

Any ideas?

Regards /Snedker

[Izzy]

I would abondon the timer method and use
System.Threadin g.Thread.Sleep( 10000) on a do loop.

If you use this method you'll need to create a new thread and put your
code is another sub, not in OnStart.

Something like this:

*************** *************** *************** *************** *************** ***

Public Class Service1

Private thWorker As New System.Threadin g.Thread(Addres sOf
DoSomething)
Private bTrigger As Boolean = False

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

LogFile(Now & ": " & vbTab & "Service started")
thWorker.Start( )
End Sub

Protected Overrides Sub OnStop()

LogFile(Now & ": " & vbTab & "Service stopped")
thWorker.Abort( )
End Sub

Private Sub DoSomething()

Do
thWorker.Sleep( 10000)

LogFile(Now & ": " & vbTab & "Timer trigger - do nothing")

If Minute(Now) = 33 Then
LogFile(Now & ": " & vbTab & "Timer trigger - run code")
If bTrigger = False Then ExecuteWOL()
End If
Loop
End Sub

End Class

*************** *************** *************** *************** *************** **

Izzy

Morten Snedker wrote:

Others had the same problem and I understand that I have to use the
System.Timers.T imer instead for the one for forms. So that's what I
do, but still it doesn't trigger:

'--code begin
Imports System.Net
Imports System.Net.Sock ets
Imports System.Net.Dns
Imports System.Text
Imports System.IO
Public Class Service1

Private bTrigger As Boolean
Private myTimer As New System.Timers.T imer

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

With myTimer
.Interval = 10000
.Enabled = True
.Start()
End With

LogFile(Now & ": " & vbTab & "Service started")

End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop
your service.
LogFile(Now & ": " & vbTab & "Service stopped")
End Sub

Private Sub myTimer_Tick(By Val sender As System.Object, ByVal e As
System.EventArg s)

LogFile(Now & ": " & vbTab & "Timer trigger - do nothing")

If Minute(Now) = 33 Then
LogFile(Now & ": " & vbTab & "Timer trigger - run code")
If bTrigger = False Then ExecuteWOL()
End If

End Sub
...
'---code end

So, the file should be written to every 10 seconds, but it doesn't.
The file is correctly written to upon start/stop of service.

Any ideas?

Regards /Snedker

[PGC]

Hi Morten,

Maybe I've missed something in the code but it looks like you haven't got
either an AddHandler or Handles clause for the myTimer_Tick event. This
could be the problem.
e.g.
Private Sub myTimer_Tick(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles myTimer.Tick
PGC
"Morten Snedker" <morten_spammen ot_ATdbconsult. dkwrote in message
news:g3******** *************** *********@4ax.c om...

Others had the same problem and I understand that I have to use the
System.Timers.T imer instead for the one for forms. So that's what I
do, but still it doesn't trigger:

'--code begin
Imports System.Net
Imports System.Net.Sock ets
Imports System.Net.Dns
Imports System.Text
Imports System.IO
Public Class Service1

Private bTrigger As Boolean
Private myTimer As New System.Timers.T imer

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

With myTimer
.Interval = 10000
.Enabled = True
.Start()
End With

LogFile(Now & ": " & vbTab & "Service started")

End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop
your service.
LogFile(Now & ": " & vbTab & "Service stopped")
End Sub

Private Sub myTimer_Tick(By Val sender As System.Object, ByVal e As
System.EventArg s)

LogFile(Now & ": " & vbTab & "Timer trigger - do nothing")

If Minute(Now) = 33 Then
LogFile(Now & ": " & vbTab & "Timer trigger - run code")
If bTrigger = False Then ExecuteWOL()
End If

End Sub
...
'---code end

So, the file should be written to every 10 seconds, but it doesn't.
The file is correctly written to upon start/stop of service.

Any ideas?

Regards /Snedker

[Chris Dunaway]

Morten Snedker wrote:

Others had the same problem and I understand that I have to use the
System.Timers.T imer instead for the one for forms. So that's what I
do, but still it doesn't trigger:

'--code begin
Imports System.Net
Imports System.Net.Sock ets
Imports System.Net.Dns
Imports System.Text
Imports System.IO
Public Class Service1

Private bTrigger As Boolean
Private myTimer As New System.Timers.T imer

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

With myTimer
.Interval = 10000
.Enabled = True
.Start()
End With

LogFile(Now & ": " & vbTab & "Service started")

End Sub

What does the LogFile method do? Do you see the message that says
"Service Started" ? Does the service have the necessary permissions to
write to the log file?
<snip>

[Morten Snedker]

On 25 Sep 2006 06:48:40 -0700, "Izzy" <is************ @gmail.com>
wrote:

Thanks for your response that put me on the right track. The working
solution:

Public Class Service1

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

Dim thWorker As New Thread(AddressO f WorkProcess)

LogFile(Now & ": " & vbTab & "Service started")
thWorker.Start( )

End Sub

Protected Overrides Sub OnStop()
LogFile(Now & ": " & vbTab & "Service stopped")
End Sub
Sub WorkProcess()

Do
Thread.Sleep(60 000)
If Minute(Now) = 44 Then ExecuteWOL()
Loop

End Sub
....
Thx again.
Regards /Snedker

[Izzy]

There needs to be a thWorker.Abort( ) in your OnStop() method.

Izzy
Morten Snedker wrote:

On 25 Sep 2006 06:48:40 -0700, "Izzy" <is************ @gmail.com>
wrote:

Thanks for your response that put me on the right track. The working
solution:

Public Class Service1

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

Dim thWorker As New Thread(AddressO f WorkProcess)

LogFile(Now & ": " & vbTab & "Service started")
thWorker.Start( )

End Sub

Protected Overrides Sub OnStop()
LogFile(Now & ": " & vbTab & "Service stopped")
End Sub
Sub WorkProcess()

Do
Thread.Sleep(60 000)
If Minute(Now) = 44 Then ExecuteWOL()
Loop

End Sub
...
Thx again.
Regards /Snedker

[Chris Dunaway]

Izzy wrote:

There needs to be a thWorker.Abort( ) in your OnStop() method.

You should not abort a thread in this manner. You should send some
signal into the thread so it can shutdown in an orderly fashion.

[Izzy]

Chris Dunaway wrote:

Izzy wrote:

There needs to be a thWorker.Abort( ) in your OnStop() method.

You should not abort a thread in this manner. You should send some
signal into the thread so it can shutdown in an orderly fashion.

Can you give a code example of how to properly shut down a thread?

Izzy