vb抓取网页内容( 高手讲讲实现的基本流程吧..很多代码没有注释 )

　　vb抓取网页内容(

高手讲讲实现的基本流程吧..很多代码没有注释

)

　　VB抓取网页某处内容【求取过程】

　　作为标题...

　　高手说说实现的基本过程。

　　很多代码没有注释，看起来很累。

　　真心学习！--------------------编程问答--------------------从xmlhttp中获取数据object 转换编码完成！--------------------编程问答--------------------

　　    'ServerXMLHTTP 获取函数<br />

    Function GetBody(Weburl)<br />

       On Error Resume Next<br />

       Dim xmlHttp<br />

       'Set xmlHttp=createobject("Msxml2.XMLHTTP.4.0")<br />

       'set xmlHttp=createobject("Microsoft.XMLHTTP")<br />

       Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")<br />

       xmlHttp.setTimeouts 4000, 4000, 4000, 8000<br />

       xmlHttp.Open "GET", Weburl, False<br />

       xmlHttp.send<br />

       If xmlHttp.readystate = 4 Then<br />

       'if xmlHttp.status=200 then<br />

        GetBody = xmlHttp.responsebody<br />

       'end if<br />

        Else<br />

        GetBody = ""<br />

       End If<br />

      Dim sError<br />

       If Err.Number  0 Then<br />

       sError = Err.Number<br />

       Err.Clear<br />

       Else<br />

       sError = ""<br />

       End If<br />

       Set xmlHttp = Nothing<br />

    End Function<br />

    '远程获取网页编码格式转换<br />

    Function BytesToBstr(body, charset) '转换成需要的编码格式<br />

        Dim objstream<br />

        Set objstream = CreateObject("adodb.stream")<br />

        objstream.Type = 1<br />

        objstream.Mode = 3<br />

        objstream.Open<br />

        On Error Resume Next<br />

        objstream.Write body<br />

        objstream.Position = 0<br />

        objstream.Type = 2<br />

        objstream.charset = charset<br />

        BytesToBstr = objstream.ReadText<br />

        objstream.Close<br />

        Set objstream = Nothing<br />

    End Function

　　--------------------编程问答--------------------msgboxBytesToBstr(GetBody(""), "gb2312")

　　补充：VB , 网络编程