VBS怎样循环打开TXT文件里面的网址？

biao197

我要求功能是用VBS打开E:\1.TXT内的网址并设置1s钟切换一下不断循环。我在网上找了一下。如下代码有点类似，只不过有点区别，他是要求选择打开TXT的，而我要的是指定的E:\1.TXT。还有就是下面这段代码在WIN7上打不开，只能在XP里打开；

1. Set objDialog = CreateObject("UserAccounts.CommonDialog")
   
2. objDialog.Filter = "所有文件|*.*"
   
3. objDialog.InitialDir = "E:"
   
4. objDialog.ShowOpen
   
5. allurl = CreateObject("scripting.filesystemobject").opentextfile(objDialog.FileName).readall
   
6. set objDialog = nothing
   
7. url = split(allurl,vbcrlf)
   
8. set ie=createobject("internetexplorer.application")
   
9. ie.visible=true
   
10. do
    
11. for i = 0 to ubound(url)
    
12. ie.navigate url(i)
    
13. While ie.busy Or ie.readystate <> 4
    
14. Wend
    
15. Wscript.Sleep 1000
    
16. next
    
17. loop
    
18. set ie = nothing

复制代码

哪位大侠帮我改一下，感激不尽啊！

broly

1. allurl = CreateObject("scripting.filesystemobject").opentextfile("E:\1.txt").readall
   
2. url = split(allurl,vbcrlf)
   
3. set ie=createobject("internetexplorer.application")
   
4. ie.visible=true
   
5. do
   
6. for i = 0 to ubound(url)
   
7. ie.navigate url(i)
   
8. While ie.busy Or ie.readystate <> 4
   
9. Wend
   
10. Wscript.Sleep 1000
    
11. next
    
12. loop
    
13. set ie = nothing

复制代码

biao197

谢谢版主，真的可以了也，不知道为什么关闭IE的时候弹出一个错误提示？
我上面的代码也是不知道为什么。不过不影响功能

还有一个问题啊班主回复时的那些提问有点难度啊刷新了好久才找了个简单的，不然都回复不了呢

broly

回复 3# biao197


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