Unlimited looping?

[m0rfin]

Hi, im trying to make a simple timer script that presses a key in a certain time. But i cant get it to loop.. so i was wondering if someone could help me?

Func toggla()
    Send ("{F9}")
    Sleep(120000)
    Send ("{F8}")
    Sleep(25000)
EndFunc
HotKeySet("f","toggla");


While 1
WEnd

[Kerros]

Your loop is not calling anything.

try this

HotKeySet("f","toggla"); Placing the hotkey in here is not necessary, but will allow you to do the function manually if you want to.
 HotKeySet("{ESC}", "Terminate");a way to break out of the script
 
 While 1
 Toggla()
 sleep(100); or however long you want to wait in microseconds.  
 WEnd
Func toggla()
     Send ("{F9}")
     Sleep(120000)
     Send ("{F8}")
     Sleep(25000)
 EndFunc
Func Terminate()
    Exit
EndFunc

Edited August 20, 2008 by Kerros

[therks]

Have a look at the example for HotKeySet. I'm sure you can modify that to suit your needs.

[martin]

Hi, im trying to make a simple timer script that presses a key in a certain time. But i cant get it to loop.. so i was wondering if someone could help me?

Func toggla()
    Send ("{F9}")
    Sleep(120000)
    Send ("{F8}")
    Sleep(25000)
EndFunc
HotKeySet("f","toggla");


While 1
WEnd

The way you have written your scipt means that when you press the key f the function toggla will be called. It will execute the statements then finish.

You could change the function so that it keeps looping like this

Func toggla()
  while 1
    Send ("{F9}")
    Sleep(120000)
    Send ("{F8}")
    Sleep(25000)
  wend
endfunc

You then have a problem because there is no way to stop it looping. So have some way of stopping Toggla. Maybe like this

Global $keepGoing
HotKeySet("f", "toggla");
HotKeySet("g", "EndToggla")


While 1
   sleep(100);add a sleep here or it will use a lot of CPU time when it's not executing toggla
WEnd

Func toggla()
    $keepGoing = True
    While $keepGoing = True
        Send("{F9}")
        Sleep(120000)
        Send("{F8}")
        Sleep(25000)
    WEnd
EndFunc ;==>toggla

Func EndToggla()
    $keepGoing = False
EndFunc ;==>EndToggla

Edited August 20, 2008 by martin