一个反复无常的VBS的问题！ - 中国DOS联盟论坛

有一个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

第1楼　lotus516	发表于 2010-02-19 21:13
高级用户　发帖 246　积分 551
一个反复无常的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 附件未命名.PNG (46.23 KiB)

第2楼　qinchun36	发表于 2010-02-20 09:15
高级用户　发帖 400　积分 609
你去网上查下错误代码就大概能了解问题了： INET_E_CONNECTION_TIMEOUT (0x800C000BL) -2,146,697,205 Connection timed out. 连接超时，可能是网络不稳定造成的。