论坛 › 已解决问题区 › 关于函数func退出的问题 已解决

lin0308 发表于 2010-4-28 16:28:28

关于函数func退出的问题 已解决

本帖最后由 lin0308 于 2010-4-29 16:35 编辑

如
func au（）
Opt("TrayMenuMode",1)
$exit = TrayCreateItem("退出")
TraySetState()
While 1
$msg = TrayGetMsg()
      Select
                Case $msg = $exit
                        Quit()
      EndSelect
Sleep(1)
以下是循环
..............
wend
endfunc

func quit（）
这里面是一个输入密码的，密码正确才可以退出，错误返回 au（）
endfunc

问题就在密码错误时返回au（）时，发现托盘里有2个退出。

3mile 发表于 2010-4-29 09:57:16

#NoTrayIcon

Opt("TrayMenuMode",1)        ; 默认托盘菜单项目(脚本已暂停/退出脚本) (Script Paused/Exit) 将不显示.

$prefsitem        = TrayCreateItem("参数")
TrayCreateItem("")
$aboutitem        = TrayCreateItem("关于")
TrayCreateItem("")
$exititem        = TrayCreateItem("退出")

TraySetState()

While 1
        $msg = TrayGetMsg()
        Select
                Case $msg = 0
                        ContinueLoop
                Case $msg = $prefsitem
                        Msgbox(64, "参数:", "系统版本:" & @OSVersion)
                Case $msg = $aboutitem
                        Msgbox(64, "关于:", "AutoIt3-托盘-例子.")
                Case $msg = $exititem
                        quit();ExitLoop
        EndSelect
WEnd

;Exit
Func quit()
        $passwd = InputBox("安全性检查", "输入你的密码.", "", "*")
        If $passwd="abcde" Then
                MsgBox(0,0,"密码输入正确")
                Exit
        EndIf
EndFunc

查看完整版本: 关于函数func退出的问题 已解决