VBS如何实现指定域名每隔5分钟刷新一次？

dnvplj

各位朋友：请帮写一个指定域名每隔5分钟刷新一次，如：用帐号和密码登录论坛后（http://www.bathome.net），每隔5分钟刷新一次。

czjt1234

1. Set objIE = CreateObject("InternetExplorer.Application")
   
2. objIE.Navigate "http://www.baidu.com"
   
3. objIE.Visible = True
   
4. While objIE.Busy Or objIE.ReadyState <> 4
   
5.     Wscript.Sleep 200
   
6. Wend
   
7. Do
   
8.     Wscript.Sleep 1000 * 60 * 5
   
9.     objIE.Refresh
   
10. Loop

复制代码

dnvplj

感谢楼上朋友的回复,有几个问题请教:

1、如何调用360极速浏览器（"C:\Documents and Settings\Administrator\

Local Settings\Application Data\360Chrome\Chrome\Application\360chrome.exe"）

2、下面这2行代码是什么关系

    Wscript.Sleep 200

    Wscript.Sleep 1000 * 60 * 5

3、加2个地址，怎么写，如：

http://www.2345.com/?751
http://www.biadu.com

4、如何打开浏览器时，让其最大化。

5、更换http://www.2345.com/?751/，提示出错：见下图

czjt1234

Wscript.Sleep 200  这是延时200毫秒

Wscript.Sleep 1000 * 60 * 5   这是延时 1000毫秒，就是1秒，乘以60，就是1分钟，再乘以5

While objIE.Busy Or objIE.ReadyState <> 4
    Wscript.Sleep 200
Wend
这3行的意思是等待网页完全打开，每隔200毫秒检测一次，网页没打开就一直循环等待


网页打开最大化，我还没找到办法，你可以关闭所有IE窗口，打开一个IE，最大化，再关闭，这样下次打开的就是默认最大化

或者你把窗口手工拖到最大

同时打开多个窗口可以这样

1. Set objIE = CreateObject("InternetExplorer.Application")
   
2. objIE.Navigate "http://www.baidu.com"
   
3. objIE.Visible = True
   
4. While objIE.Busy Or objIE.ReadyState <> 4
   
5.     Wscript.Sleep 200
   
6. Wend
   
7. 
   
8. Set objIE2 = CreateObject("InternetExplorer.Application")
   
9. objIE2.Navigate "http://www.baidu.com"
   
10. objIE2.Visible = True
    
11. While objIE2.Busy Or objIE2.ReadyState <> 4
    
12.     Wscript.Sleep 200
    
13. Wend
    
14. 
    
15. Do
    
16.     Wscript.Sleep 1000 * 60 * 5
    
17.     objIE.Refresh
    
18.     objIE2.Refresh
    
19. Loop

复制代码

打开3个你可以按格式再加objIE3这样

用这个代码打开的IE，你手工关闭后就会报错，你截的图

czjt1234

如果你用非IE浏览器，那么就要模拟按键发送F5刷新网页，这要求网页必须是活动窗口

也就是说你不能做其它事

dnvplj

感谢czjt1234朋友的回复，只能打开第1个网站，第2个打不开，提示出错，见下面代码和图片：

1. Set objIE = CreateObject("InternetExplorer.Application")
   
2. objIE.Navigate "http://www.2345.com/?751"
   
3. objIE.Visible = True
   
4. While objIE.Busy Or objIE.ReadyState <> 4
   
5.     Wscript.Sleep 200
   
6. Wend
   
7. 
   
8. objIE2.Navigate "http://www.sohu.com/"
   
9. objIE2.Visible = True
   
10. While objIE2.Busy Or objIE2.ReadyState <> 4
    
11.     Wscript.Sleep 200
    
12. Wend
    
13. 
    
14. Do
    
15.     Wscript.Sleep 1000 * 60 * 1
    
16.     objIE.Refresh
    
17.     objIE2.Refresh
    
18. Loop

复制代码

再世情緣

哥们儿，360浏览器自带的就有自动刷新功能，还支持仅后台时自动刷新，有必要用脚本吗。。。。
工具>自动刷新，设置下自动刷新频率就OK了
我的360浏览器版本是6.0.2.158，最新的。。。

czjt1234

已修改~~~~~

dnvplj

如何退出浏览器时，关闭VBS，已免出错。