Recursive operation with an Escape

[PaulT]

I would like to use a working script, but for the life of me, cannot grasp the Loop calls. I would like this script to run Indefinitely but with the ability to exit rapidly if the need arises. Could someone offer a solution?

[ code ]WinWait("LexaPro","")

If Not WinActive("LexaPro","") Then WinActivate("LexaPro","")

WinWaitActive("LexaPro","")

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("LexaPro","")

If Not WinActive("LexaPro","") Then WinActivate("LexaPro","")

WinWaitActive("LexaPro","")

Send("{F1}")

Sleep (1000)

MouseMove(525,561)

MouseDown("left")

MouseUp("left")

Sleep (1000)

MouseMove(214,257)

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

Sleep (500)

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

Sleep (1000)

MouseMove(261,256)

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

Sleep (1000)

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

MouseDown("left")

MouseUp("left")

Sleep (1000)

Send("{F6}")

[ /code ]

[PaulT]

Never mind, I was able to figure it out

While 1 = 1 at beginning and Wend at end of chain

As for an exit Strategy:

Found this: HotKeySet("^!x", "MyExit")

With this as an end Statement:

Func MyExit()

Exit

EndFunc

Works perfectly.