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

fyhwaijxnt78

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $time = 30
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("倒计时测试窗口", 350, 172, 193, 125)
$Label1 = GUICtrlCreateLabel("30秒后将进入主程序!", 56, 32, 232, 28)
GUICtrlSetFont(-1, 18, 400, 0, "楷体_GB2312")
$Progress1 = GUICtrlCreateProgress(8, 88, 333, 17)
$Button1 = GUICtrlCreateButton("确定(&Y)", 53, 128, 73, 25, 0)
$Button2 = GUICtrlCreateButton("退出(&X)", 210, 128, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable("_timer", 1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
   Case $GUI_EVENT_CLOSE, $Button2
    Exit
   Case $Button1
    ExitLoop
EndSwitch
If $time <= 0 Then ExitLoop
WEnd
main()
Exit

Func _timer()
$time -= 1
GUICtrlSetData($Label1, $time & "秒后将进入主程序!")
GUICtrlSetData($Progress1, (30 - $time) / 0.3)
If $time <= 0 Then AdlibDisable()
EndFunc   ;==>_timer

Func main()
MsgBox(0, 'test', '倒计时结束,进入主程序.', 10)
;以下为主程序
EndFunc   ;==>main

fyhwaijxnt78

这个怎么加上去！
Func mr()
    GUIDelete($Form1)
        run("C:\拖拉机\拖拉机.EXE")
EndFunc

afan

你的意思是把 ;以下为主程序 换成 Func mr() 的功能？

fyhwaijxnt78

我的意思就是30秒后打开个程序！但这个AU3，30秒后打开的是(按确定也是) 倒计时结束，进入主程序。并有正进进入要打开的程序，这只是个提示！

要把这个改下
Func main()
MsgBox(0, 'test', '倒计时结束,进入主程序.', 10)
;以下为主程序
EndFunc   ;==>main


谢谢!

afan

没搞懂你的意思，直接Run不行吗？

Func main()
MsgBox(0, 'test', '倒计时结束,进入主程序.', 10)
run("C:\拖拉机\拖拉机.EXE")
EndFunc   ;==>main

fyhwaijxnt78

可以,只要能在30秒后或点确定，能打开一个程序就行了！

你看看怎么改，谢谢了！

afan

LS不是已经改了吗？

fyhwaijxnt78

没看呀，请问在哪？？

afan

Func main()
MsgBox(0, 'test', '倒计时结束,进入主程序.', 10)
run("C:\拖拉机\拖拉机.EXE")
EndFunc   ;==>main


↑↑↑↑这个不是吗？↑↑↑

水木子

我认认真真把楼主的话读了好几遍，实在很难理解楼主的意思。

fyhwaijxnt78

Func main()
MsgBox(0, 'test', '倒计时结束,进入主程序.', 10)
run("C:\拖拉机\拖拉机.EXE")
EndFunc   ;==>main


↑↑↑↑这个不是吗？↑↑↑
afan 发表于 2009-9-8 22:43

可以了，谢谢了！

水木子

Func main()
MsgBox(0, 'test', '倒计时结束,进入主程序.', 10)
run("C:\拖拉机\拖拉机.EXE")
EndFunc   ;==>main


↑↑↑↑这个不是吗？↑↑↑
afan 发表于 2009-9-8 22:43

呵呵！呵呵！呵呵！

fyhwaijxnt78

呵呵！呵呵！呵呵！
水木子 发表于 2009-9-8 22:47

Func main()
run("C:\拖拉机\拖拉机.EXE")
EndFunc   ;==>main

可以了！谢谢!

请问时间改成20秒(要慢慢来的，它一下就跑到50%)，怎么改?

afan

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $time = 20
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("倒计时测试窗口", 350, 172, 193, 125)
$Label1 = GUICtrlCreateLabel("30秒后将进入主程序!", 56, 32, 232, 28)
GUICtrlSetFont(-1, 18, 400, 0, "楷体_GB2312")
$Progress1 = GUICtrlCreateProgress(8, 88, 333, 17)
$Button1 = GUICtrlCreateButton("确定(&Y)", 53, 128, 73, 25, 0)
$Button2 = GUICtrlCreateButton("退出(&X)", 210, 128, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable("_timer", 1000)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE, $Button2
                        Exit
                Case $Button1
                        ExitLoop
        EndSwitch
        If $time <= 0 Then ExitLoop
WEnd
main()
Exit

Func _timer()
        $time -= 1
        GUICtrlSetData($Label1, $time & "秒后将进入主程序!")
        GUICtrlSetData($Progress1, (20 - $time) / 20 * 100)
        If $time <= 0 Then AdlibDisable()
EndFunc   ;==>_timer

Func main()
        run("C:\拖拉机\拖拉机.EXE")
EndFunc   ;==>main

水木子

太快了吧！