ArdentMan

Do
  CreateObject("Wscript.Shell").SendKeys "{F5}"
  WScript.Sleep 3600000
Loop
复制代码

ArdentMan

4# mstsc
另存为Clear.vbs，纯批是不可能做到的啊

ArdentMan

批处理方法：

@Echo Off
If "%1" Equ "OK" Goto Loop
Start /Min %~Fs0 OK&Exit 
:Loop
MsHta VbScript:CreateObject("Wscript.Shell").SendKeys("{F5}")(Window.Close)
MsHta JavaScript:document.write();setTimeout('close()',3600000);
Goto Loop
复制代码

ArdentMan

到任务管理器中结束wscript.exe