在VB中用XMLHTTP获取网页Html文本

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