TimerQ - 简单的倒计时

沙发

[回复]

昨天在深度也看见个倒计时软件，只不过那个是为仪式什么的场合准备的，点运行–然后就会全屏幕倒计时

[回复]

绝对轻量级

[回复]

【AU3】实现：
#include
#include
#include
#include
#include

Opt(”GUIOnEventMode”, 1)
Opt(”TrayMenuMode”, 1)
Opt(”TrayOnEventMode”, 1)
$formOption = GUICreate(”自定义时间”, 351, 91, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, “formOptionClose”)
GUISetOnEvent($GUI_EVENT_MINIMIZE, “formOptionClose”)
$lblPrompt = GUICtrlCreateLabel(”提示信息”, 8, 8, 52, 17)
$iptPrompt = GUICtrlCreateInput(”", 8, 25, 273, 21)
$lblTime = GUICtrlCreateLabel(”时间”, 288, 8, 28, 17)
$iptTime = GUICtrlCreateInput(”1″, 288, 25, 33, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, “iptTimeChange”)
$lblUnit = GUICtrlCreateLabel(”分”, 328, 27, 16, 17)
$btnOk = GUICtrlCreateButton(”确定(&O)”, 264, 56, 75, 25, 0)
GUICtrlSetOnEvent(-1, “btnOkClick”)
TraySetClick(”9″)
$mi3 = TrayCreateItem(”3 分钟提醒”)
TrayItemSetOnEvent(-1, “mi3Click”)
$mi5 = TrayCreateItem(”5 分钟提醒”)
TrayItemSetOnEvent(-1, “mi5Click”)
$mi10 = TrayCreateItem(”10 分钟提醒”)
TrayItemSetOnEvent(-1, “mi10Click”)
$mi15 = TrayCreateItem(”15 分钟提醒”)
TrayItemSetOnEvent(-1, “mi15Click”)
$mi20 = TrayCreateItem(”20 分钟提醒”)
TrayItemSetOnEvent(-1, “mi20Click”)
$mi30 = TrayCreateItem(”30 分钟提醒”)
TrayItemSetOnEvent(-1, “mi30Click”)
$miSprt1 = TrayCreateItem(”")
$miCustom = TrayCreateItem(”自定义时间”)
TrayItemSetOnEvent(-1, “miCustomClick”)
$miSprt2 = TrayCreateItem(”")
$miExit = TrayCreateItem(”退出”)
TrayItemSetOnEvent(-1, “miExitClick”)
GUISetState(@SW_HIDE)

While 1
Sleep(100)
WEnd

Func btnOkClick()
$PromptText = GUICtrlRead($iptPrompt)
$Time = GUICtrlRead($iptTime)
GUISetState(@SW_HIDE, $formOption)
SetTimer($PromptText, $Time)
EndFunc
Func formOptionClose()
GUISetState(@SW_HIDE, $formOption)
EndFunc
Func iptTimeChange()
$PromptText = GUICtrlRead($iptPrompt)
if $PromptText “” Then
GUICtrlSetData($iptPrompt, “good”)
EndIf
EndFunc
Func mi10Click()
SetTimer(CreatePromptText(10), 10)
EndFunc
Func mi15Click()
SetTimer(CreatePromptText(15), 15)
EndFunc
Func mi20Click()
SetTimer(CreatePromptText(20), 20)
EndFunc
Func mi30Click()
SetTimer(CreatePromptText(30), 30)
EndFunc
Func mi3Click()
SetTimer(CreatePromptText(3), 3)
EndFunc
Func mi5Click()
SetTimer(CreatePromptText(5), 5)
EndFunc
Func miCustomClick()
GUISetState(@SW_SHOW, $formOption)
EndFunc
Func miExitClick()
Exit
EndFunc

Func SetTimer($PrptTxt, $Min)
Sleep($Min * 60000)
if $PrptTxt = “” Then
$PrptTxt = “您设置的时间到！”
EndIf
TraySetToolTip($PrptTxt)
MsgBox(48, “提示”, $PrptTxt)
EndFunc
Func CreatePromptText ($Min)
Return “您设置的” & $Min & “分钟时间到！”
EndFunc

[回复]

怎么运行不了呢
打开提示：正常初始化失败

[回复]

我也用不起来，快点看看怎么回事啊？

[回复]