中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 一个反复无常的VBS的问题！

lotus516
高级用户

论坛上抢劫的

积分 551
发帖 246
注册 2006-9-21
状态离线

『楼主』: 一个反复无常的VBS的问题！

有一个VBS很怪，一会正常，一会不正常，请教达人，能给我指出错误吗？
大部分时间可以正常运行，可是有时却会出现如下错误！
代码如下！

set h=createobject("Microsoft.XMLHTTP")

h.open "get","http://eztv.it/",false

h.send

yuan = zhuanghuan(h.responsebody)

set f = createobject("scripting.filesystemobject")

set a = f.createtextfile("tmp.txt")

a.write yuan

a.close

Function zhuanghuan(wen) 

For i = 1 To LenB(wen)

text = AscB(MidB(wen,i,1))

If text < &H80 Then

body = body & Chr(text)

Else

file = AscB(MidB(wen,i+1,1))

body = body & Chr(CLng(text) * &H100 + CInt(file))

i = i + 1

End If

Next

zhuanghuan = body

End Function