批处理之家 - Powered by Discuz! Board

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

作者: RuiIsRui 时间: 2012-2-19 15:37 标题: VBS脚本怎样打开、前置网页？[已解决]

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

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

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

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

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

我知道打开等待其加载完成的代码为：

Set IE=CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.baidu.com"
IE.Visible=1
Do While IE.ReadyState<>4
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 编辑

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible=0
ie.Navigate("about:blank")
ie.Navigate("http://www.qq.com")
delay(ie)
ie.Visible=1
wsh.quit
Sub delay(obj)
do while CInt(IE.Readystate or IE.busy)<> 4
WScript.Sleep 100
loop
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

加载完成后再设为可见不就行了

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

作者: RuiIsRui 时间: 2012-2-23 21:47

回复 10# powerbat

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

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