Service wake-up each hour

[A]

Hello,

I try to make a Windows Service that doing some action at each begin of
hour.
I cannot use the task schedule.
I have try to use thread, timer ... But nothing is correct.

Do you have an ideas to do it ?

Thanks.

Seb

[Cor Ligthert [MVP]]

You mean that you want to use the system.timers.timer event and than see if
the full hour is reached based on 'Now"..

The first time go to it by going down and after the first time the timer can
be set to an hour and than everytime adjusted based on the exact 'Now'.

Be aware that there are 4 timers and that you cannot use the forms timer for
this.

http://msdn.microsoft.com/library/de...classtopic.asp

I hope this helps,

Cor

[Phill. W]

"A" <[e-mail]> wrote in message news:di**********@s1.news.oleane.net...

I try to make a Windows Service that doing some action at each
begin of hour.

Have your Service run a loop that periodically checks to see when
it last did anything useful and, if the hour has changed since then,
do the useful thing again, something like

Sub RunProcess()
Dim dtLastRun as DateTime = DateTime.Now()

' Allow a nice tidy shutdown, via the OnStop Event
Do While Not bgServiceStopRequested

If DateTime.Now.Hour <> dtLastRun.Hour Then
dtLastRun = DateTime.Now()
DoRealWork()
End If

Threading.Thread.Sleep( 5000 )
Loop
End Sub

HTH,
Phill W.

[A]

Thanks a lot for you help
I have found a solution with just one timer and when the timer elapsed, I
calulate the new interval and I set it and it works fine.

Thanks again,
Sébastien

"Phill. W" <P.A.Ward@o-p-e-n-.-a-c-.-u-k> a écrit dans le message de news:
di**********@yarrow.open.ac.uk...

"A" <[e-mail]> wrote in message news:di**********@s1.news.oleane.net...

I try to make a Windows Service that doing some action at each
begin of hour.

Have your Service run a loop that periodically checks to see when
it last did anything useful and, if the hour has changed since then,
do the useful thing again, something like

Sub RunProcess()
Dim dtLastRun as DateTime = DateTime.Now()

' Allow a nice tidy shutdown, via the OnStop Event
Do While Not bgServiceStopRequested

If DateTime.Now.Hour <> dtLastRun.Hour Then
dtLastRun = DateTime.Now()
DoRealWork()
End If

Threading.Thread.Sleep( 5000 )
Loop
End Sub

HTH,
Phill W.