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

[问题求助] VBS脚本怎样打开、前置网页?[已解决]

本帖最后由 RuiIsRui 于 2012-2-23 21:52 编辑

用批处理或VBS写个代码,打开一个网页,等打开的网页加载完成后将其前置.........

两个代码组合也可以.......


因要打开的网页较慢,在计算机上还要做其它事,又没时间等它慢慢打开,但其一加载完成就要知道,所以,需要它加载完就前置......

如,以打开百度,http://WWW.baidu.com 为例。

我知道打开等待其加载完成的代码为:
  1. Set IE=CreateObject("InternetExplorer.Application")
  2. IE.Navigate "http://www.baidu.com"
  3. IE.Visible=1
  4. Do While IE.ReadyState<>4
  5. Loop
复制代码
但之后不知道怎样将其窗口前置。

望大家不吝指教...
1

评分人数

    • zqz0012005: 感谢给帖子标题标注[已解决]字样PB + 2
天行健  君子以自强不息

回复 10# powerbat


    呵呵,谢谢大侠,这个可以,其实我在等待中还是在浏览网页,上边那个一来就前置,如果有网页在它前面它就出不来了,呵呵.....................再感谢
天行健  君子以自强不息

TOP

加载完成后再设为可见不就行了
  1. Set IE=CreateObject("InternetExplorer.Application")
  2. IE.Navigate "http://www.baidu.com"
  3. Do While IE.ReadyState<>4 : wsh.sleep 200 : Loop
  4. IE.Visible=1 '加载完成后设为可见
  5. IE.document.body.focus() '其实没必要
复制代码
1

评分人数

TOP

回复 5# RuiIsRui


    我自己测试是没问题的,我的代码中的“第2行”是隐藏的状态打开网页,然后等待加载完毕“第6行”设置为显示

TOP

回复 7# RuiIsRui


    请用几分钟阅读下版规,知道你不是故意的,请支持工作。
寂寞是黑白的,但黑白不是寂寞,是永恒。BAT 需要的不是可能,而是智慧。

TOP

回复 6# cjiabing


    对不起了版主,不知道规矩,恕罪恕罪...
天行健  君子以自强不息

TOP

本帖最后由 cjiabing 于 2012-2-23 10:57 编辑

回复 5# RuiIsRui


    请遵守论坛管理规定,参照2楼提示修改帖子标题。
    不要使用这种毫无意义的标题,标题必须指明你的问题类型、核心,使用关键词。
    比如:报告将军,敌人进犯,已到祝家庄!
    不能:哎呀不得了了,敌人打过来了,将军怎么办,求各位大侠帮忙啊!~
寂寞是黑白的,但黑白不是寂寞,是永恒。BAT 需要的不是可能,而是智慧。

TOP

本帖最后由 RuiIsRui 于 2012-2-23 13:39 编辑

回复 3# samsinn


    另,你的代码可以简写为:

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate("http://www.qq.com")
ie.Visible=1
do while ie.Readystate<>4
WScript.Sleep 100
loop
天行健  君子以自强不息

TOP

回复 3# samsinn


大侠,貌似不行啊,我需要的效果是,加载完成后:
天行健  君子以自强不息

TOP

本帖最后由 samsinn 于 2012-2-21 12:09 编辑
  1. Set ie = CreateObject("InternetExplorer.Application")
  2. ie.Visible=0
  3. ie.Navigate("about:blank")
  4. ie.Navigate("http://www.qq.com")
  5. delay(ie)
  6. ie.Visible=1
  7. wsh.quit
  8. Sub delay(obj)
  9. do while CInt(IE.Readystate or IE.busy)<> 4
  10. WScript.Sleep 100
  11. loop
  12. End Sub
复制代码
把代码里的http://www.qq.com换成你要的网址即可
1

评分人数

TOP

************************************************************

  对不起,本贴因为标题过于模糊或含有敏感字符而触犯版规!请
楼主在仔细阅读论坛发贴规则后主动修改好标题。同时本贴将暂时禁
止回复,对于因此而给楼主带来的不便我们深表歉意,但也请楼主自
觉遵守和维护论坛秩序,谢谢!

请阅读论坛发贴规则:http://www.bathome.net/thread-963-1-1.html

提示:
        请大家在楼主修改标题并得到管理层认可之前不要给出任何有意义的回复。
        否则一律视为无视论坛纪律扣2分!(管理层和技术组扣4分)
        论坛是大家的,也要靠大家来维护。。。


************************************************************
***共同提高***

TOP

返回列表