批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS如何实现指定域名每隔5分钟刷新一次？ [打印本页]

作者: dnvplj 时间: 2012-12-20 13:39 标题: VBS如何实现指定域名每隔5分钟刷新一次？

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

作者: czjt1234 时间: 2012-12-20 15:49

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.baidu.com"
objIE.Visible = True
While objIE.Busy Or objIE.ReadyState <> 4
    Wscript.Sleep 200
Wend
Do
    Wscript.Sleep 1000 * 60 * 5
    objIE.Refresh
Loop
复制代码

作者: dnvplj 时间: 2012-12-21 10:15

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

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 时间: 2012-12-22 08:42

本帖最后由 czjt1234 于 2012-12-22 13:39 编辑

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，最大化，再关闭，这样下次打开的就是默认最大化

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

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

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.baidu.com"
objIE.Visible = True
While objIE.Busy Or objIE.ReadyState <> 4
    Wscript.Sleep 200
Wend

Set objIE2 = CreateObject("InternetExplorer.Application")
objIE2.Navigate "http://www.baidu.com"
objIE2.Visible = True
While objIE2.Busy Or objIE2.ReadyState <> 4
    Wscript.Sleep 200
Wend

Do
    Wscript.Sleep 1000 * 60 * 5
    objIE.Refresh
    objIE2.Refresh
Loop
复制代码

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

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

作者: czjt1234 时间: 2012-12-22 08:47

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

也就是说你不能做其它事

作者: dnvplj 时间: 2012-12-22 10:40

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

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.2345.com/?751"
objIE.Visible = True
While objIE.Busy Or objIE.ReadyState <> 4
    Wscript.Sleep 200
Wend

objIE2.Navigate "http://www.sohu.com/"
objIE2.Visible = True
While objIE2.Busy Or objIE2.ReadyState <> 4
    Wscript.Sleep 200
Wend

Do
    Wscript.Sleep 1000 * 60 * 1
    objIE.Refresh
    objIE2.Refresh
Loop
复制代码

作者: 再世情緣 时间: 2012-12-22 11:40

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

作者: czjt1234 时间: 2012-12-22 13:39

已修改~~~~~

作者: dnvplj 时间: 2012-12-23 19:36

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

欢迎光临批处理之家 (http://bbs.bathome.net/)