Board logo

标题: 运行VBS时出错,给个解决办法!! [打印本页]
作者: lotus516     时间: 2007-12-5 23:49    标题: 运行VBS时出错,给个解决办法!!
我运行http://www.cn-dos.net/forum/viewthread.php?tid=33750&fpage=1&highlight=%E5%A4%A9%E6%B0%94###
时出错,一个一个分析后发现是VBS的问题!!如图!!
作者: lxmxn     时间: 2007-12-6 04:25
具体是哪段代码？贴上来看看？
作者: lotus516     时间: 2007-12-7 12:41
生成了两个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 ]
作者: fastslz     时间: 2007-12-7 13:55
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
作者: lotus516     时间: 2007-12-8 07:50
呵呵,我也不懂VBS,不过上次我用了他的这个(修改前,无全屏的)运行成功,这次不行了,(都是从网上复制粘贴来的),加之我又优化了系统,已为是我把VBS的行么弄掉了,结果是他修改后的代码有问题!!!