czjt1234

测试方法二可以键盘执行的
按 Y 或 N 键

czjt1234

没有焦点怎么能键盘操作呢，换第三方程序也不行啊
能不能 alt + tab 切换vbs对话框到前台

还有你的逻辑没看懂，如果按否后是延时，然后循环再次询问，那么为什么不一直询问呢
如果不用循环反复问，可以这样

WScript.Timeout = 30    '超时的时间，单位：秒
Set oWshShell = CreateObject("WScript.Shell")
i = vbYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal
If MsgBox("确定是否执行本次升级？", i, "确认") = vbYes Then
    oWshShell.Run "C:\Windows\System32\cs-SC\一键升级.bat", 1
End If
复制代码

czjt1234

如果要循环反复问的话，代码就比较啰嗦了