13gu 发表于 2016-11-25 20:16:48

二个选择按钮加倒计时，请问一下怎么写[已解决]

本帖最后由 13gu 于 2016-11-28 15:04 编辑

二个选择按钮加倒计时，请问一下怎么写
如图

cfanpc 发表于 2016-11-26 10:12:36

你先画好框架来

13gu 发表于 2016-11-26 10:30:39

回复 2# cfanpc
就是不会才问呀。。。

cfanpc 发表于 2016-11-27 11:39:11

本帖最后由 cfanpc 于 2016-11-27 11:47 编辑


基本上可以了，源码很简单，ICO文件你自己去提取


找到128X128的来就可以了#NoTrayIcon
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $time = 10
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("安全套装选择", 410, 370, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_GROUP))
$Group1 = GUICtrlCreateGroup("", 6, 2, 393, 337)
$Label1 = GUICtrlCreateLabel("温馨提示：系统将在10秒后默认选择360安全套餐", 15, 314, 368, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
$Icon1 = GUICtrlCreateIcon("D:\小工具\2.ico", -1, 50, 80, 128, 128)
$Icon2 = GUICtrlCreateIcon("D:\小工具\1.ico", -1, 233, 79, 128, 128)
$Label2 = GUICtrlCreateLabel("360安全套装", 60, 224, 98, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
$Label3 = GUICtrlCreateLabel("QQ管家安全套装", 229, 222, 126, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

AdlibRegister("_timer", 1000)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
        If $time <= 0 Then ExitLoop
WEnd

ok()

Func _timer()
        $time -= 1
        GUICtrlSetData($Label1,"温馨提示：系统将在"&$time&"秒后默认选择360安全套餐")
        If $time <= 0 Then AdlibUnRegister()
       
EndFunc   ;==>_timer

Func ok()
        ShellExecute("notepad.exe")
EndFunc

cfanpc 发表于 2016-11-27 11:48:05

标签栏建议先写字上去不然会有一秒的空白时间和你要的时间一样就可以了

13gu 发表于 2016-11-27 19:25:53

本帖最后由 13gu 于 2016-11-27 21:45 编辑

回复 5# cfanpc
你好，还有一个问题。二个ICO图标好像不能选择？
本来那二个图片分别运行对应的EXE文件，麻烦也写一下？同时也删除ESC退出功能？
谢谢

cfanpc 发表于 2016-11-28 09:07:14

回复 6# 13gu #NoTrayIcon
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUICloseOnESC", 0)
Global $time = 30 ;倒计时时间单位为秒
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("安全套装选择", 410, 370, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_GROUP))
$Group1 = GUICtrlCreateGroup("", 6, 2, 393, 337)
$Label1 = GUICtrlCreateLabel("温馨提示：系统将在30秒后默认选择360安全套餐", 23, 274, 368, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
$Icon1 = GUICtrlCreateIcon("D:\小工具\2.ico", -1, 50, 80, 128, 128)
$Icon2 = GUICtrlCreateIcon("D:\小工具\1.ico", -1, 233, 79, 128, 128)
$Label2 = GUICtrlCreateLabel("360安全套装", 60, 224, 98, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
$Label3 = GUICtrlCreateLabel("QQ管家安全套装", 229, 222, 126, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Verdana")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(16, 304, 369, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

AdlibRegister("_timer", 1000)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Icon1
                        AdlibUnRegister()
                        ShellExecute("notepad.exe")
                Case $Icon2
                        AdlibUnRegister()
                        ShellExecute("calc.exe")

        EndSwitch
        If $time <= 0 Then ExitLoop
WEnd

ok()

Func _timer()
        $time -= 1
        GUICtrlSetData($Label1,"温馨提示：系统将在"&$time&"秒后默认选择360安全套餐")
       
        GUICtrlSetData($Progress1, (30 - $time) / 0.3)
        If $time <= 0 Then AdlibUnRegister()
       
EndFunc   ;==>_timer

Func ok()
        ShellExecute("notepad.exe")
EndFunc

13gu 发表于 2016-11-28 09:24:25

本帖最后由 13gu 于 2016-11-28 15:03 编辑

回复 7# cfanpc
不好意思是我弄错了，没有问题了
非常感谢！~

13gu 发表于 2016-11-28 16:55:58

回复 7# cfanpc


    你好，还有一个问题，点击图标运行程序后，本身的程序不会退出。麻烦再修改一下？

cfanpc 发表于 2016-11-29 09:49:31

回复 9# 13gu
运行的下面在加入EXIT就好了蛋疼你什么都不会啊

13gu 发表于 2016-11-29 11:11:08

回复 10# cfanpc


    不好意思，程序加了EXIT后
运行时马上打开一个记事本就程序退出了，麻烦再修改一下，谢谢

wbb870319 发表于 2016-11-30 20:06:32

还可以这样么。。。

lucky1232 发表于 2016-12-7 09:24:33

難得看到一篇伸手文我笑了....
页: [1]
查看完整版本: 二个选择按钮加倒计时，请问一下怎么写[已解决]