Help with putting timer on a function

[Physical]

I have the following Function:

Func Automate()
    Do
        Send ("{1}")
        Sleep (2000)
        $Count = $Count + 1
        $Time = $Time + 2000
        If $Time >= 900000 Then
            Send ("{4}") 
            $Time = 0
        EndIf
        If $Count = 7 Then
            Send ("{5}")
            Sleep (10000)
            $Time = $Time + 10000
            $Count = 0
        EndIf
    Until $Count = 10
EndFunc

Basically i want this function to loop forever (i use hotkey to terminate it) but every 15 mins i want it to press a different key (i got 900,000 miliseconds by doing 15*60 = 900 * 1000 = 900000) Is this the best way to go about this? Any suggestions would be greatly appreciated.

Edited May 7, 2008 by Physical

[monoceres]

I have the following Function:

Func Automate()
     Do
         Send ("{1}")
         Sleep (2000)
         $Count = $Count + 1
         $Time = $Time + 2000
         If $Time >= 900000 Then
             Send ("{4}") 
             $Time = 0
         EndIf
         If $Count = 7 Then
             Send ("{5}")
             Sleep (10000)
             $Time = $Time + 10000
             $Count = 0
         EndIf
     Until $Count = 10
 EndFunc

Basically i want this function to loop forever (i use hotkey to terminate it) but every 15 mins i want it to press a different key (i got 900,000 miliseconds by doing 15*60 = 900 * 1000 = 900000) Is this the best way to go about this? Any suggestions would be greatly appreciated.

Check out AdlibEnable()

[Physical]

Check out AdlibEnable()

Func Automate()
    AdlibEnable("TimeFunc", 900000)
    Do
        Send ("{F1}")
        Sleep (2000)
        $Count = $Count + 1
        If $Count = 7 Then
            Send ("{F5}")
            Sleep (10000)
            $Count = 0
        EndIf
    Until $Count = 10
EndFunc

Func TimeFunc()
    Send ("{4}")
EndFunc

Is this correct?

[monoceres]

Func Automate()
     AdlibEnable("TimeFunc", 900000)
     Do
         Send ("{F1}")
         Sleep (2000)
         $Count = $Count + 1
         If $Count = 7 Then
             Send ("{F5}")
             Sleep (10000)
             $Count = 0
         EndIf
     Until $Count = 10
 EndFunc
 
 Func TimeFunc()
     Send ("{4}")
 EndFunc

Is this correct?

No, not quite if you want it to send 4 all the time. best way is to store the key in a global variable and then change it in your timefunc:

Global $key="{F5}"
Func Automate()
     AdlibEnable("TimeFunc", 900000)
     Do
         Send ("{F1}")
         Sleep (2000)
         $Count = $Count + 1
         If $Count = 7 Then
             Send ($key) ; assuming it's this one that changes.
             Sleep (10000)
             $Count = 0
         EndIf
     Until $Count = 10
 EndFunc
 
 Func TimeFunc()
     $key="4"
 EndFunc

[Physical]

No, not quite if you want it to send 4 all the time. best way is to store the key in a global variable and then change it in your timefunc:

Global $key="{F5}"
Func Automate()
     AdlibEnable("TimeFunc", 900000)
     Do
         Send ("{F1}")
         Sleep (2000)
         $Count = $Count + 1
         If $Count = 7 Then
             Send ($key) ; assuming it's this one that changes.
             Sleep (10000)
             $Count = 0
         EndIf
     Until $Count = 10
 EndFunc
 
 Func TimeFunc()
     $key="4"
 EndFunc

i didnt want to replace it sending 7, i wanted to send 4 in addition to it. Sorry i wasnt very clear with that. I tried editing it a bit to test and send the keys to a open note pad window and it seems to work. Thanks very much for your idea it helps me a great deal.