Open firefox

[KenzoIT]

Hi everyone,

I would like the script will execute automatically each five minutes.

But I have the problem when I run myscript. It can not stop.

$firefox = MsgBox(4, "Open Firefox", "Would you like to open firefox ?")

If $firefox = 7 Then
   ;MsgBox(0, "Design by Kenzo","Thank you !")
    Exit
EndIf

AdlibRegister ("Adlib_Function",4000)

While 1
ShellExecute ("C:\Program Files\Mozilla Firefox\firefox.exe")
    Sleep (1000)
    Send("{ALT}")
    Sleep(1000)
    Send ("{right 4}")
    Sleep (1000)
    Send("{down 9}")
    Send ("{right}")
    Send("{down 5}")
    Send("{enter}")
    Sleep(9000)
    Send("^{TAB}")
    Sleep(5000)
    Send("^{TAB}")
    Sleep(5000)
    Send("^{TAB}")
    Sleep(5000)
    Send("^{TAB}")
    Sleep(1000)

WEnd

Func Adlib_Function()
   ConsoleWrite("This function is called once a second - time is " & @MIN & ":" & @SEC & @CRLF)
EndFunc

Can you instruct me how to fix it ?

[Bert]