Board logo

标题: [问题求助] VBS脚本怎样打开、前置网页？[已解决] [打印本页]
作者: RuiIsRui    时间: 2012-2-19 15:37     标题: 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
复制代码
但之后不知道怎样将其窗口前置。

望大家不吝指教...
作者: batman    时间: 2012-2-19 18:22

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

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

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

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

************************************************************
作者: samsinn    时间: 2012-2-21 12:08

本帖最后由 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换成你要的网址即可
作者: RuiIsRui    时间: 2012-2-23 09:37

回复 3# samsinn


大侠，貌似不行啊，我需要的效果是，加载完成后：
作者: RuiIsRui    时间: 2012-2-23 09:51

本帖最后由 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
作者: cjiabing    时间: 2012-2-23 10:55

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

回复 5# RuiIsRui


    请遵守论坛管理规定，参照2楼提示修改帖子标题。
    不要使用这种毫无意义的标题，标题必须指明你的问题类型、核心，使用关键词。
    比如：报告将军，敌人进犯，已到祝家庄！
    不能：哎呀不得了了，敌人打过来了，将军怎么办，求各位大侠帮忙啊！~
作者: RuiIsRui    时间: 2012-2-23 13:49

回复 6# cjiabing


    对不起了版主，不知道规矩，恕罪恕罪...
作者: cjiabing    时间: 2012-2-23 13:56

回复 7# RuiIsRui


    请用几分钟阅读下版规，知道你不是故意的，请支持工作。
作者: samsinn    时间: 2012-2-23 14:31

回复 5# RuiIsRui


    我自己测试是没问题的，我的代码中的“第2行”是隐藏的状态打开网页，然后等待加载完毕“第6行”设置为显示
作者: powerbat    时间: 2012-2-23 14:59

加载完成后再设为可见不就行了
  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() '其实没必要
复制代码
作者: RuiIsRui    时间: 2012-2-23 21:47

回复 10# powerbat


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



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2