TimerQ - 简单的倒计时

沙发

[回复]

大腿我是不会给任何人滴

[回复]

皮卡西 reply on 七月 23rd, 2008,17:34:

你成功了…

[回复]

Enson reply on 七月 23rd, 2008,18:46:

终于成功了耶
下一个沙发我也要拿走(●?▽｀●)ノ

[回复]

皮卡西 reply on 七月 23rd, 2008,18:53:

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

[回复]

绝对轻量级

[回复]

轻是轻，却需要个巨大的 .net

[回复]

QCC reply on 七月 24th, 2008,19:34:

【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

[回复]

O_o!!万恶的过滤插件…… 脚本内容可以在这里看：http://runningwaterpro.blog.163.com/blog/static/31194812008624112442578/

[回复]

李二嫂的猪 reply on 七月 24th, 2008,11:22:

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

[回复]

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

[回复]