a=Split("http://www.baidu.com!http://www.google.com","!")

Do
For Each i In a
    With CreateObject("InternetExplorer.Application")
        .Navigate i
        WSH.Sleep 10 * 1000
        .Quit
    End With
Next
Loop
复制代码

@echo off
setlocal enabledelayedexpansion
set url1=http://bbs.bathome.net
set url2=http://www.cn-dos.net/forum
:loop
for /l %%a in (1,1,2) do (
  mshta vbscript:CreateObject^("WScript.Shell"^).Run^("iexplore !url%%a!",0^)^(window.close^)
  ping -n 10 127.1>nul
  taskkill /f /im iexplore.exe>nul 2>nul
)
goto :loop
复制代码

a=Split("http://www.baidu.com!http://www.google.com","!")

Do
For Each i In a
With CreateObject("InternetExplorer.Application")
.Navigate i
WSH.Sleep 10 * 1000
.Quit
End With
Next
Loop
复制代码

版主的脚本我测试了，可以用。
但是，一旦我上网打开网页脚本就会终止并弹出如下的对话框：
[attach]555[/attach]
还有一个问题：
我的计算机是多人用，有几个用户，我把这个脚本放在开机启动文件夹里，新的问题来了：有的用户安装有世界之窗浏览器和TT浏览器，一登录帐户运行脚本就弹出浏览器，之后脚本就终止并弹出如下对话框：
[attach]556[/attach]

请问：如何保证这个脚本在我上网时不终止，而且保证它在各种浏览器下都能正常运行？