[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS如何实现指定域名每隔5分钟刷新一次?

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

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

TOP

已修改~~~~~

QQ 20147578

TOP

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

TOP

感谢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. objIE2.Navigate "http://www.sohu.com/"
  8. objIE2.Visible = True
  9. While objIE2.Busy Or objIE2.ReadyState <> 4
  10.     Wscript.Sleep 200
  11. Wend
  12. Do
  13.     Wscript.Sleep 1000 * 60 * 1
  14.     objIE.Refresh
  15.     objIE2.Refresh
  16. Loop
复制代码

TOP

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

也就是说你不能做其它事

QQ 20147578

TOP

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

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

同时打开多个窗口可以这样
  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. Set objIE2 = CreateObject("InternetExplorer.Application")
  8. objIE2.Navigate "http://www.baidu.com"
  9. objIE2.Visible = True
  10. While objIE2.Busy Or objIE2.ReadyState <> 4
  11.     Wscript.Sleep 200
  12. Wend
  13. Do
  14.     Wscript.Sleep 1000 * 60 * 5
  15.     objIE.Refresh
  16.     objIE2.Refresh
  17. Loop
复制代码

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

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

QQ 20147578

TOP

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

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/,提示出错:见下图

TOP

  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
复制代码

QQ 20147578

TOP

返回列表