FORM1代码:Public Function GetCode(CodeBase Url) 第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址. Dim xml1Set xml1 = CreateObject(Microsoft.XML)xml1.Open get Url Truexml1.sendWhile xml1.Rea