mstsc 当前离线
四级士官
评分人数
battab 当前离线
一级士官
TOP
CrLf 当前离线
论坛巡查
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复制代码
Do CreateObject("Wscript.Shell").SendKeys "{F5}" WScript.Sleep 3600000 Loop ArdentMan 发表于 2011-7-3 18:59