中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 运行VBS时出错,给个解决办法!!
作者:
标题: 运行VBS时出错,给个解决办法!! 上一主题 | 下一主题
lotus516
高级用户

论坛上抢劫的


积分 551
发帖 246
注册 2006-9-21
状态 离线
『楼 主』:  运行VBS时出错,给个解决办法!! 使用 LLM 解释/回答一下

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

2007-12-5 23:49
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

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

2007-12-6 04:25
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lotus516
高级用户

论坛上抢劫的


积分 551
发帖 246
注册 2006-9-21
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

生成了两个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 ]

2007-12-7 12:41
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
fastslz
铂金会员

DOS一根葱


积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

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




第一高手 第二高手
我的小站
2007-12-7 13:55
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lotus516
高级用户

论坛上抢劫的


积分 551
发帖 246
注册 2006-9-21
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

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

2007-12-8 07:50
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023