vbs怎么实现批量打开网页，要求在打开一个新网页的同时关掉已经打开的网页？
1个回答
展开全部
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
