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