broly

allurl = CreateObject("scripting.filesystemobject").opentextfile("E:\1.txt").readall
url = split(allurl,vbcrlf)
set ie=createobject("internetexplorer.application")
ie.visible=true
do
for i = 0 to ubound(url)
ie.navigate url(i)
While ie.busy Or ie.readystate <> 4
Wend
Wscript.Sleep 1000
next
loop
set ie = nothing
复制代码

broly

回复 3# biao197


    关闭IE时提示出错是因为VBS还在运行，那是正常现象，忽视就可以了。