高分求高手 inet控件批量打开网页问题

最近做了一个软件   批量打开网站链接的所有页面求高手作答
目的只是为了6s内能打开这个页面  打不开继续下一个
vb做的     用inet.openurl
用back检查是否打开
for i = 0 to Ubound(arr)  'arr为所有页面地址数组
back=inet.openurl(cstr(arr(i)))
'1处
text1.text=text1.text+ cstr(arr(i)) + ":" + back +vbcrlf
'2处
next
但是发现有的页面back为空
我在1处和2处分别加入了
do while inet.stiiexecuting
doevents
loop
结果还是一样
后来用 on error resume next
检测超时代码后发现  超时后就不能再打开网页返回数据了   百思不得其解啊
问：：如何解决