找回密码
 加入
搜索
楼主: ytxldc

用“MsgBox”做了个窗口,怎么实现按“是”电脑自动重启

  [复制链接]
发表于 2009-6-12 16:09:21 | 显示全部楼层
Func main()

        MsgBox(0, 'Information', 'Time out! Restart!.', 10) ;不懂中文,写英文算了   你问的问题这就在里 不过十秒后会自动关闭

        Shutdown(2)                  ;重启

EndFunc   ;==>main
发表于 2009-6-12 16:10:26 | 显示全部楼层
Func main()

        MsgBox(0, 'Information', 'Time out! Restart!.', 10) ;不懂中文,写英文算了   你问的问题这就在里 不过十秒后会自动关闭

        Shutdown(2)                  ;重启

EndFunc   ;= ...
asionwu 发表于 2009-6-12 16:09


也就是说 注释掉这行或删除掉这行就不会出现这个对话框
 楼主| 发表于 2009-6-12 19:32:14 | 显示全部楼层
MsgBox(0, 'Information', 'Time out! Restart!.', 10)
把这行删掉,按立即重启已经没有那时间超时的提示了,我不想要那个倒计时和进度条,删哪些代码能把它删掉啊?
发表于 2009-6-12 21:01:32 | 显示全部楼层
MsgBox(0, 'Information', 'Time out! Restart!.', 10) ;不懂中文,写英文算了
去掉就行
发表于 2009-6-12 21:02:24 | 显示全部楼层
7-29行删看试试,1-6,我忘了哪行可以删除
发表于 2009-6-12 21:02:47 | 显示全部楼层
我帮你写写试试
发表于 2009-6-12 21:07:23 | 显示全部楼层
#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("所选软件安装完毕,XXXXXXXXXX",  600, 172, 193, 125)
$Label1 = GUICtrlCreateLabel("30秒后将自动重启!您可以作出选择!", 56, 32, 555, 28)
GUICtrlSetFont(-1, 18, 400, 0, "楷体_GB2312")
;$Progress1 = GUICtrlCreateProgress(8, 88, 555, 30)
$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()
        Shutdown(2)
EndFunc   ;==>main
发表于 2009-6-13 09:51:11 | 显示全部楼层
删除这行MsgBox(0, 'Information', 'Time out! Restart!.', 10) ;不懂中文,写英文算了
 楼主| 发表于 2009-6-13 11:04:12 | 显示全部楼层
KN007,你上面的代码是看到倒计时画面了,但是还有倒计时的功能,到30秒还是会自动重启,我不想让电脑自己重启,有办法吗?
发表于 2009-6-13 15:26:35 | 显示全部楼层
If MsgBox(8228, "烟台新蓝网络科技有限公司", "所选软件安装完毕,请重新启动电脑做相关设置后进行系统备份!是否现在重启电脑?") = 6 Then
  Shutdown(2)
Else
        Exit
EndIf
发表于 2009-6-13 16:08:36 | 显示全部楼层
楼上的也行
发表于 2009-6-13 16:17:02 | 显示全部楼层
修改下,就可以达到你的要求
发表于 2009-6-13 16:18:51 | 显示全部楼层
If MsgBox(8228+256, "烟台新蓝网络科技有限公司", "所选软件安装完毕,请重新启动电脑做相关设置后进行系统备份!是否现在重启电脑?",5) = 6 Then 
  Shutdown(2)
Else
        Exit
EndIf 
发表于 2009-6-13 16:19:04 | 显示全部楼层
;;其中的,5是多少秒后关闭提示窗,按默认按键进行,8228是问号+X号禁用,256,是按键“否”的意思
发表于 2009-6-13 16:19:33 | 显示全部楼层
推荐28楼代码,更舒服简单
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-6 03:17 , Processed in 0.071323 second(s), 14 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表