中国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

你去网上查下错误代码就大概能了解问题了：

INET_E_CONNECTION_TIMEOUT (0x800C000BL) -2,146,697,205 Connection timed out.

连接超时，可能是网络不稳定造成的。