Question

vbs InputBox 等待一定时间后没有输入，系统自动默认一个值

Dim a
a=InputBox("请输入：y 或者 n。注：取消关机可在开始-运行-输入cmd回车-输入“shutdown -a”命令","是否关机？")
If a="y" Then
Dim b,cm
Set b=CreateObject("wscript.shell")
cm="C:\windows\system32\shutdown -s -t 120"
b.Run cm
End If

上面是必须拥护手工输入y或者n才能继续。怎么实现：如果长时间没有输入则自动执行某个操作比如，关机；
Option explicit
Dim std,ws,cm,cm1,cal
Set std=CreateObject("wscript.shell")
set ws=CreateObject("wscript.shell")
cm="C:\windows\system32\shutdown -s -t 120"
cm1="C:\windows\system32\shutdown -a"
cal=ws.popup("请输入：选择“是”、“否”。",30,"是否关机？",4+32)
If cal=6 Or cal=-1 Then
std.Run cm
else
std.Run cm1
End If

Answer 1

常规方式无法实现, inputbox必须接受到返回值才继续执行下一句语句 .
可以考虑在你的vbs中运行另一vbs, 那个vbs等待若干时间后即执行关机, 而你本来的vbs中如果输入N, 则想办法使启动的那个vbs关闭, 如果Y, 那立即关机