vbs怎么实现批量打开网页，要求在打开一个新网页的同时关掉已经打开的网页？

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

百度网友5f0407e
2014-09-23 · TA获得超过335个赞

知道小有建树答主

回答量：257

采纳率：0%

帮助的人：189万

我也去答题访问个人页

关注

展开全部

set ie = CreateObject("InternetExplorer.Application")
sub open(url)
ie.Navigate url,4
do until 4=ie.readyState
    WScript.sleep 200
    waittime  = waittime + 200
    if waittime > 15000 then exit do
loop
if 4<>ie.readyState then
    ie.quit
    WScript.quit
end if
end sub
open "http://www.baidu.com/"
wscript.sleep 2000 ''等待2秒后打开新的网页
open "http://www.qq.com/"

更多追问追答

追问

能不能从TXT文件中逐行读入网址打开?手动更改网址太麻烦

追答

可以哦，首先，你要在本脚本的同目录下创建"网站地址.txt"，一行为一个网址，最好是完整的地址，如http://www.baidu.com/

set ie = CreateObject("InternetExplorer.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
sub open(url)
ie.Navigate url,4
do until 4=ie.readyState
    WScript.sleep 200
    waittime  = waittime + 200
    if waittime > 15000 then exit do
loop
if 4<>ie.readyState then
    ie.quit
    WScript.quit
end if
end sub
set fr=fso.opentextfile("网站地址.txt",1)
do while ffile.atendofstream<>true   
 oururl=fr.readline
 open oururl
loop