Public Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址.
　Dim xmlHTTP1
　Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
　xmlHTTP1.Open "get", Url, True
　xmlHTTP1.send
　While xmlHTTP1.ReadyState <> 4
　　 DoEvents
　Wend
　GetCode = xmlHTTP1.ResponseBody
　If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
　Set ObjXML = Nothing
End Function

Public Function BytesToBstr(strBody, CodeBase)
　 Dim ObjStream
　 Set ObjStream = CreateObject("Adodb.Stream")
　 With ObjStream
　　 .Type = 1
　　 .Mode = 3
　　 .Open
　　 .write strBody
　　 .Position = 0
　　 .Type = 2
　　 .Charset = CodeBase
　　 BytesToBstr = .ReadText
　　 .Close
　 End With
　 Set ObjStream = Nothing
End Function