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