批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS怎样循环打开TXT文件里面的网址？ [打印本页]

作者: biao197 时间: 2011-11-5 23:08 标题: VBS怎样循环打开TXT文件里面的网址？

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

Set objDialog = CreateObject("UserAccounts.CommonDialog") 
objDialog.Filter = "所有文件|*.*" 
objDialog.InitialDir = "E:\" 
objDialog.ShowOpen 
allurl = CreateObject("scripting.filesystemobject").opentextfile(objDialog.FileName).readall
set objDialog = nothing
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 时间: 2011-11-7 21:19

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
复制代码

作者: biao197 时间: 2011-11-7 23:26

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

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

作者: broly 时间: 2011-11-8 00:05

回复 3# biao197

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

欢迎光临批处理之家 (http://bathome.net./)