Infinite timer?

acdsky · #1 (**permalink**) June 17th, 2004, 11:49 AM

Hi

I have developed a VB6 exe that I need to use to monitor mail round trip times. It uses outlook and access. I need to run this file every 30 min and it need to run in the Win profile with the outlook profile setup. I have tried the standard windows task scheduler and it does not work for me.

I can work around the profile problem by running it logged into the machine. Any ideas on how to make the program wake up every 30 min (vbs or VB6)?

Regards
Marnus

happygv · #2 (**permalink**) June 17th, 2004, 02:59 PM

Let me give you the logic on this.

You can use Timer Control to achieve that.

But the timer control can be set the maximum value of 65 seconds(65535 ms), you got to have a counter that gets incremented by 1 for every min(60000 ms) and finally when the counter reaches 30, you should run the code that needs to monitor mail round trip and reset its value to 0, so that it runs again when it reaches 30.

Code:

private Sub Timer1_Timer()
  static nTimes as Long
  If nTimes = 30 then
    ' Execute the code for monitor mail round trip
    nTimes = 0
  End If
End Sub

Set the Interval property of the Timer to 60000.

Hope that helps.
Cheers!

_________________________
-Vijay G

Strive for Perfection