[已解决]批处理怎样自动刷新当前页面？

mstsc

当电脑前没人时，怎么做一个在1小时，自动刷新当前页面呢？谢谢

CUer

这样做有什么用途？

ArdentMan

1. 
   
2. Do
   
3.   CreateObject("Wscript.Shell").SendKeys "{F5}"
   
4.   WScript.Sleep 3600000
   
5. Loop
   

复制代码

mstsc

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

ArdentMan 发表于 2011-7-3 18:59

这个有点看不懂。能用BAT达到我想要的效果吗？

mstsc

2# CUer


我也不知道自己想着玩的

ArdentMan

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

mstsc

6# ArdentMan


哦，原来是这样啊。

ArdentMan

批处理方法：

1. 
   
2. @Echo Off
   
3. If "%1" Equ "OK" Goto Loop
   
4. Start /Min %~Fs0 OK&Exit
   
5. :Loop
   
6. MsHta VbScript:CreateObject("Wscript.Shell").SendKeys("{F5}")(Window.Close)
   
7. MsHta JavaScript:document.write();setTimeout('close()',3600000);
   
8. Goto Loop

复制代码

mstsc

8# ArdentMan


这个怎么有时要我点它才有用呢？

mstsc

3# ArdentMan


请问：：这个用了   怎么结束呢？

ArdentMan

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

mstsc

11# ArdentMan


没有别的结束办法了？

CrLf

印象中用 mshta 来 sendkey 的时候，焦点似乎是在 mshta 上而不在原有的前台程序窗口中...

mstsc

13# zm900612


请问  ，那要怎么用呢？

CrLf

14# mstsc


需要先切换到指定窗口，解决方法是用 bat 调用 vbs，或者在 bat 中直接用 mshta 调用 js，因为 js 可以把多条命令写成一行