VBS如何将提示对话框限时

Question

VBS有很多种对话框提示 比如运行VBS 出现一个对话框 用户不点确定也不点取消,VBS就不会继续运行. 能不能让这个对话框10秒后消失并继续执行下个命令

Answer 1

可以实现呀,用WshShell 对象的Popup 方法就可以实现

intButton=object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
参数
object --> WshShell 对象。
strText --> 包含要显示在弹出式消息框中的文本的字符串值。
nSecondsToWait --> 可选。表示弹出式消息框最长显示时间（秒）的数值。
strTitle -->可选。包含要作为弹出式消息框的标题显示的文本的字符串值。
nType -->可选。表示要显示在弹出式消息框中的按钮和图标类型的数值。这些类型确定消息框的使用方法。
IntButton --> 表示用户单击以解除消息框的按钮号的整数值。该值由 Popup 方法返回。如果用户在 nSecondsToWait 秒之前未单击按钮，则 intButton 设为 –1

----按钮类型-----
0 显示“确定”按钮。
1 显示“确定”和“取消”按钮。
2 显示“放弃”、“重试”和“忽略”按钮。
3 显示“是”、“否”和“取消”按钮。
4 显示“是”和“否”按钮。
5 显示“重试”和“取消”按钮。

-----图标类型-----
16 显示“停止标记”图标。
32 显示“问号”图标。
48 显示“感叹号”图标。
64 显示“信息标记”图标。

------按钮返回值----
1 “确定”按钮
2 “取消”按钮
3 “放弃”按钮
4 “重试”按钮
5 “忽略”按钮
6 “是”按钮
7 “否”按钮

例子:

Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")

BtnCode = WshShell.Popup("你感觉如何?", 7, "提示", 32+4)
'显示对话框,7秒后自动关闭,图标是"问号",按钮有"是","否"
'如果按"是",BtnCode =6,按"否",BtnCode =7,不按7秒后按"是",BtnCode =-1

Answer 2

CreateObject("WScript.Shell").Popup "要显示的内容",2
'显示2秒后消失。

CreateObject("WScript.Shell").Popup "要显示的内容",2,"标题内容"
'显示2秒后消失，自定义标题内容

CreateObject("WScript.Shell").Popup "要显示的内容",2,"标题内容",4096+64
'显示2秒后消失，自定义标题内容，自定义显示警示图标

把上面的内容复制保存成vbs文件就能看到效果。

Answer 3

使用popup即可

Set os=CreateObject("wscript.shell")
os.Popup "本对话框2秒后自动关闭",2,"提示",64+0