VBS中,MsgBox在一定时间内如果没有返回值,自动返回某个数值

Question

或者也不一定用MsgBox。
我的问题的意思是比方说先跳出了一个对话框（MsgBox"abc"）
然后如果5秒之内用户没有作出处理，就自动给出一个返回值，跳到下一行（MsgBox"def"）。
我要达到的效果是：先出来一个abc,等用户按下确认。5秒之内还没有确认，就自动返回1，输出def.
不知能否做到...
也可以不用MsgBox...

Answer 1

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Popup "请等待5秒钟，5秒后该窗口自动关闭", 5, "定时自动关闭提示框"

这个能满足你的要求，可以手动去点“确定”，也可以等过5秒自动关闭。