求助 怎么设置超时30秒未检测到动作，自动执行否按钮，老师些，帮忙解决下，要用键盘鼠标都能操作。
方法一 不能超时执行- Set objShell = CreateObject("WScript.Shell")
- Do
- intResult = MsgBox("确定是否执行本次升级？" ,vbYesNo+vbQuestion+vbDefaultButton2, "确认")
-
- If intResult = vbYes Then
- '执行命令的代码
- objShell.Run "C:\Windows\System32\cs-SC\一键升级.bat", 1, True
- Exit Do
- Else
- '取消执行命令的代码，1分钟延迟
- WScript. sleep(60 * 1000)
- End If
- Loop
方法二 只能鼠标执行- Set objShell = CreateObject("WScript.Shell")
- Do
- intAnswer = objShell.Popup("确定是否执行本次升级？", 30 , "确定", vbYesNo + vbQuestion+vbDefaultButton2 +4096)
-
- If intAnswer = vbYes Then
- '执行命令的代码
- objShell.Run "C:\Windows\System32\cs-SC\一键升级.bat", 1, True
- Exit Do
- Else
- '取消执行命令的代码，60秒延迟
- WScript. sleep(60 * 1000)
- End If
- Loop
| 
发表于 2024-2-9 22:26
| 
