中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-06 19:10

共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » 运行VBS时出错,给个解决办法!!

可打印版本　717 / 4

第1楼　lotus516	发表于 2007-12-05 23:49
高级用户　发帖 246　积分 551
运行VBS时出错,给个解决办法!! 我运行http://www.cn-dos.net/forum/viewthread.php?tid=33750&fpage=1&highlight=%E5%A4%A9%E6%B0%94### 时出错,一个一个分析后发现是VBS的问题!!如图!!

第2楼　lxmxn	发表于 2007-12-06 04:25
版主　发帖 4,938　积分 11,386
具体是哪段代码？贴上来看看？

第3楼　lotus516	发表于 2007-12-07 12:41
高级用户　发帖 246　积分 551
生成了两个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 ]

第4楼　fastslz	发表于 2007-12-07 13:55
铂金会员　发帖 2,315　积分 5,493　来自上海
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

第5楼　lotus516	发表于 2007-12-08 07:50
高级用户　发帖 246　积分 551
呵呵,我也不懂VBS,不过上次我用了他的这个(修改前,无全屏的)运行成功,这次不行了,(都是从网上复制粘贴来的),加之我又优化了系统,已为是我把VBS的行么弄掉了,结果是他修改后的代码有问题!!!

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023