how to exit script?

[golfinhu]

this is a part of my script:

expandcollapse popup

Opt("TrayMenuMode", 1)
$exit = TrayCreateItem("Exit")
TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = $exit
            ExitLoop

        Case Else
            TrayTip("Running", "O " & $title & " está em execução", 3)
            $logfile = OpenOrCreateLog(@ScriptDir & "\log xml.txt")
            DownloadFile($download_link, $file_name, $logfile)
            Verificar_Arquivo($file_name, $logfile)
            Space_tag($file_name, $logfile)
            Subst_ponto($file_name, $logfile)
            Arrumar_Pontuacao($file_name, $logfile)
            interrogacao($file_name, $logfile)
            break_line($file_name, $logfile)
            open_tag($file_name, $logfile)
            Convert($file_name, $logfile)
            Tidy($file_name, $logfile)
            $FTPsession = FTPSessionOpen('MyFTP Control', $logfile)
            $FTPconnect = FTPSessionConnect($FTPsession, $server, $username, $password, $logfile)
            If Not FTPSetRemoteDir($FTPconnect, '\httpdocs\jovial', $logfile) And FTPSessionClose($FTPsession, $logfile) Then Exit
            FTPSendFile($file_name, '\httpdocs\jovial\xml.xml', $FTPconnect, $logfile)
            FTPSessionClose($FTPsession, $logfile)
            FileDelete($file_name)
            If Not @error Then _FileWriteLog($logfile, "XML deletado - OK")
            _FileWriteLog($logfile, "----------------------------------------" & @CRLF & "Tudo Ok!")
            FileClose($logfile)
            TrayTip($title, "Finalizado!", 3)
            Sleep(1000)
            ExitLoop
    EndSelect
WEnd

people, can you help me?

what's wrong with this script?

because when I click "Exit" the program continues running

it just stops running when he finished completing all the tasks!

How can I when you click "Exit" to stop him running the same program?

thanks

[JohnOne]

I've had similar issues, I think its just busy running the code and dosent register the exit until its finished.

I find that setting a hotkey for exit function works more quickly.

[KaFu]

Yup, would think the same. Try TrayOnEventMode....

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode",1)
$exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"ExitEvent")


TraySetState()

While 1
    sleep(5000)
WEnd

Func ExitEvent()
    Exit
EndFunc

[golfinhu]

thanks, but...

it's dont work =/

but thanks for your help

I've had similar issues, I think its just busy running the code and dosent register the exit until its finished.

I find that setting a hotkey for exit function works more quickly.

HotkeySet?

Edited April 1, 2010 by golfinhu

[somdcomputerguy]

HotKeySet("^!{ESC}", "Quit") ;Ctrl+Alt+Esc

Func Quit()
    Exit
EndFunc   ;==>Quit

Edited April 1, 2010 by snowmaker