czjt1234

vbs

Set oWshShell = CreateObject("WScript.Shell")
Do
    a = Now()
    WScript.Sleep 1000
    If DateDiff("s", a, Now()) > 2 Then oWshShell.Run "cmd.exe"
Loop
复制代码

win7测试通过

不过会有小于万分之一的极小概率失效，比如正好执行到 Loop 时进入睡眠
要100%成功的话写入个临时文件