中国DOS联盟

我运行http://www.cn-dos.net/forum/viewthread.php?tid=33750&fpage=1&highlight=%E5%A4%A9%E6%B0%94###
时出错,一个一个分析后发现是VBS的问题!!如图!!

具体是哪段代码？贴上来看看？

生成了两个VBS
一个是HTML.vbs

Set oDOM = WScript.GetObject(WScript.Arguments(0))

Do Until oDOM.readyState = "complete"

WScript.sleep 200

Loop

WScript.echo oDOM.documentElement.outerText

Set oDOM=nothing

一个是text.VBS

Set oDOM = WScript.GetObject(WScript.Arguments(0))

Do Until oDOM.readyState = "complete"

WScript.sleep 200

Loop

WScript.echo oDOM.documentElement.outerText

Set oDOM=nothing

现在才发现两个VBS是一样的!!

Last edited by lotus516 on 2007-12-7 at 12:46 PM ]

Set oDOM = WScript.GetObject(WScript.Arguments(0))
Do Until oDOM.readyState = "complete"
WScript.sleep 200
Loop
WScript.echo oDOM.documentElement.outerText
Set oDOM=nothing

WScript.Arguments数字0即CMD中的%1,也就是没有指定的文件所以出现下标越界,是代码本身不够完整.

如果代码改成就知道什么原因了

Set files=WScript.Arguments

if files.Count=0 Then

   MsgBox "未指定文件, 脚本意外终止"

   Wscript.Quit

end if

Set oDOM = WScript.GetObject(WScript.Arguments(0))

Do Until oDOM.readyState = "complete"

WScript.sleep 200

Loop

WScript.echo oDOM.documentElement.outerText

Set oDOM=nothing

呵呵,我也不懂VBS,不过上次我用了他的这个(修改前,无全屏的)运行成功,这次不行了,(都是从网上复制粘贴来的),加之我又优化了系统,已为是我把VBS的行么弄掉了,结果是他修改后的代码有问题!!!