Question

求一段vbs隐藏打开以记事本存贮的批量网址，要求逐条均能成功打开，但不影响桌面做其它工作，不需要循环。

vbs程序要完整，因为我没有基础，
假设网址文件在同一目录下1.txt逐行存放，
要求：1、我希望能随时打开就可隐藏执行，要完全隐藏，不要最小化，
2、要逐个网址依次打开，保证每个网址都打开成功，不成功最好有个提示

Answer 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set ie = CreateObject("internetexplorer.application")
Set f=fso.OpenTextFile("1.txt",1)
Do While f.AtEndOfStream<>True
URL=f.ReadLine
If URL<>"" Then
ie.navigate URl
ie.Visible = 1
While ie.busy Or ie.readystate <> 4
WScript.Sleep 200
Wend
End If
Loop
f.Close
MsgBox "OK"

例如：1.txt
http://www.baidu.com
http://www.qq.com
http://www.google.com.hk

说明：1、IE8下测试通过
2、使用IE控件，若您安装了除IE之外的浏览器，不保证可以运行
3、目前网页窗口是可见的，ie.Visible = 1改为ie.Visible = 0，窗口就不可见了

追问

很棒，测试后完美运行！谢谢！
另外如果我想在弹出的通知窗口里显示任务完成的时间，
MsgBox "OK"
把里面的ok旁边加上完成时的时间，不知还有没有办法？

追答

MsgBox "OK"

改为：

MsgBox now