Question

按键精灵 有自动关闭msgbox的命令吗，该怎么样才能实现呢

每当msgbox弹窗后就不能自动运行了， 我想知道能在msgbox出现后自动关闭它的脚本写法，【没有为什么，个人的脚本必须用到】跪求啦~~~！

Answer 1

Set WSHShell=CreateObject("Wscript.Shell")
intMsg=WSHShell.Popup ("5秒后自动关闭弹窗",5,"Test",vbOKOnly)

Popup 方法显示一个弹出式消息框窗口，消息框中包含的消息由 strText 指定。该消息框的窗口标题由 strTitle 指定。若 strTitle 省略，则窗口标题为 Windows Scripting Host。
　　语法
　　WshShell.Popup(strText, [natSecondsToWait], [strTitle], [natType]) = intButton
　　注释
　　若提供 natSecondsToWait 且其值大于零，则消息框在 natSecondsToWait 秒后关闭。
　　natType 的含义与其在 Win32? MessageBox 函数中相同。下表显示 natType 中的值及含义。下表中的值可以组合。
　　按钮类型
　　值 帮助
　　0 显示“确定”按钮
　　1 显示“确定”和“取消”按钮
　　2 显示“终止”、“重试”和“忽略”按钮
　　3 显示“是”、“否”和“取消”按钮
　　4 显示“是”和“否”按钮
　　5 显示“重试”和“取消”按钮
　　图标类型
　　值 帮助
　　16 显示停止标记图标
　　32 显示问号图标
　　48 显示感叹号图标
　　64 显示信息标记图标
　　以上两个表并不涵盖 natType 的所有值。完整的列表请参阅 Win32 文档。
　　返回值 intButton 指示用户所单击的按扭编号。若用户在 natSecondsToWait 秒之前不单击按扭，则 intButton 设置为 -1 。
　　值 帮助
　　1 “确定”按扭
　　2 “取消”按扭
　　3 “终止”按扭
　　4 “重试”按扭
　　5 “忽略”按扭
　　6 “是”按扭
　　7 “否”按扭

Answer 2

用按键自带的这个弹窗功能，不需要别的插件
返回值 = Lib.窗口.弹出对话框("弹窗提示信息","输入等待时间秒数，到时间后会自动关闭",提示标题,显示样式)
举例：
返回值 = Lib.窗口.弹出对话框("成功","3",提示标题,显示样式)
弹窗会弹出成功兑换框，并于3秒后自动关闭此对话框