Starting VB program on Clock Time 1

[bdommer]

Hey Folks

Does anyone know how to start a Visual Basic program using clock time? I have a VB program I'd like to run 15 minutes before the start of each hour.

thxs

 

[FowlerConsulting]

Use the AT (@) scheduler that come as part NT/2000.
The resource kit has a GUI for this command line tool.
Steven Fowler, Principal
steve@fowlerconsulting.com
- Development, Training, and Consulting

 

[scarfhead]

write an application that checks the clock, calculates how long until a quarter til, then sleeps for that amount of time. When the sleep is done, have it shell the application that you want to launch at quarter til, then check the time until it runs again and sleep... in a loop

while true
nCyclesTilRun = CheckTime
Sleep nCyclesTilRun
shell theDesiredApp, OtherParams, etc.
wend

Function CheckTime() As Long
Dim CurrentTime As Date
Dim NumMins As Long
Dim Duration As Long

'Quick and dirty. You can make it more exact if needed.
CurrentTime = Now()
NumMins = Minute(CurrentTime)
If NumMins < 15 Then
Duration = 15 - NumMins
Else
Duration = 75 - NumMins
End If
Duration = 1000 * Duration

CheckTime = Duration
End Function

Here's the sleep bit:
Declare Sub Sleep Lib &quot;kernel32&quot; _
(byval dwMilliseconds as Long)

And shell:
Declare Function ShellExecute& Lib &quot;shell32.dll&quot; _
alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long)

That should give you some ideas

scarfhead

 

[bdommer]

scarfhead

Thanks for the program. I copied the code and recieved an error message upon saving that read, &quot;Only comments may appear after End Sub, End Function, or End Property.&quot; I think its referring to the Declare statements. What am I doing wrong.

thxs

 

[JustinEzequiel]

put the declares at the start of your code
before any sub or function