帮改下（请问这个怎么倒计时执行指定的程序?）

kn007

我下了，各位早点哦

afan

31# kn007


早点..........

kn007

嘿嘿，你也是 ，88

afan

1. #include <GUIConstantsEx.au3>
   
2. 
   
3. Dim $timez = 20, $time = $timez
   
4. $Form1 = GUICreate("倒计时测试窗口", 350, 172, 193, 125)
   
5. $Label1 = GUICtrlCreateLabel($time & "秒后将安装拖拉机，请选择！", 20, 32, 310, 28, 0x0002)
   
6. GUICtrlSetFont(-1, 16, 400, 0, "楷体_GB2312")
   
7. $Progress1 = GUICtrlCreateProgress(8, 88, 333, 17)
   
8. $Button1 = GUICtrlCreateButton("立即安装(&Y)", 53, 128, 90, 25)
   
9. $Button2 = GUICtrlCreateButton("退出安装(&X)", 210, 128, 90, 25)
   
10. GUISetState()
    
11. AdlibEnable("_timer", 1000)
    
12. 
    
13. While 1
    
14.         $nMsg = GUIGetMsg()
    
15.         Switch $nMsg
    
16.                 Case $GUI_EVENT_CLOSE, $Button2
    
17.                         Exit
    
18.                 Case $Button1
    
19.                         ExitLoop
    
20.         EndSwitch
    
21.         If $time <= 0 Then ExitLoop (Sleep(1000))
    
22. WEnd
    
23. 
    
24. main()
    
25. Exit
    
26. 
    
27. Func _timer()
    
28.         $time -= 1
    
29.         GUICtrlSetData($Label1, $time & "秒后将安装拖拉机，请选择！")
    
30.         GUICtrlSetData($Progress1, ($timez - $time) / $timez * 100)
    
31.         If $time <= 0 Then Return (GUICtrlSetData($Label1, "现在开始安装拖拉机　　　")) & (AdlibDisable())
    
32. EndFunc   ;==>_timer
    
33. 
    
34. Func main()
    
35.         run("C:\拖拉机\拖拉机.EXE")
    
36. EndFunc   ;==>main

复制代码

修改得人性化了点，另外倒计时时间只需修改前面的 Dim $timez = 20 ，20秒改成其它值即可，其余处均不用调整。

fyhwaijxnt78

#include

Dim $timez = 20, $time = $timez
$Form1 = GUICreate("倒计时测试窗口", 350, 172, 193, 125)
$Label1 = GUICtrlCreateLabel($time & "秒后将安装拖拉机，请选择！", 20, 32, 310, 28, 0x0002)
GUI ...
afan 发表于 2009-9-9 00:14

谢谢，很好!
我自己已改成二行了！

qiaojoly

我来试一下看

dnvplj

回复 34# afan
版主您好：
该代码一运行就出错呢，请指教。

zcx880517

回复 37# dnvplj


    AdlibRegister
    AdlibUnRegister

dnvplj

回复 38# zcx880517
感谢回复，明白了。