Question

求VB6.0打开网页，获取里面数据的代码

用vb6打开一个搜索引擎.输入界面上的某个文本框的内容并搜索.然后读取网页里面的代码.读取网页 tianxiaomao点com 谢谢了!

Answer 1

你好，获取源码可以用XMLHTTP组件，下面是一个获取源码函数，可以直接使用

Public Function getHtmlStr(strUrl As String)  '获取源码
    On Error Resume Next
    Dim XmlHttp As Object, stime, ntime
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.open "GET", strUrl, True
    XmlHttp.send
    stime = Now '获取当前时间
    While XmlHttp.ReadyState <> 4
        DoEvents
        ntime = Now() '获取循环时间
        If DateDiff("s", stime, ntime) > 3 Then getHtmlStr = "": Exit Function
    Wend
    getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function
使用 ：
a=getHtmlStr("网址")
a的值就是获取到的源码

追问

哥们,那怎么去使用自动向搜索框内输入固定的字符并搜索呢? 还有A的值读出来全是乱码并且因为没有搜索的缘故,无法读出需要的字符.

追答

你好，出现乱码是获取的网页的编码不是gb2312的，给你个utf-8编码的。
Function Utf8ToUnicode(str)'utf-8转gb2312函数
    Dim i, c, c2, c3, out, length
    out = "": i = 1: length = LenB(str)
    Do While i <= length
        c = AscB(MidB(str, i, 1)): i = i + 1
        Select Case (c \ 2 ^ 4)
            Case 0, 1, 2, 3, 4, 5, 6, 7
                out = out & ChrW(c)
            Case 12, 13
                c2 = AscB(MidB(str, i, 1)):i = i + 1
                out = out & ChrW(((c And &H1F) * 2 ^ 6) Or (c2 And &H3F))
            Case 14
                c2 = AscB(MidB(str, i, 1)): i = i + 1
                c3 = AscB(MidB(str, i, 1)):i = i + 1
                out = out & ChrW(((c And &HF) * 2 ^ 12) Or ((c2 And &H3F) * 2 ^ 6) Or ((c3 And &H3F) * 2 ^ 0))
        End Select
    Loop
    Utf8ToUnicode = out
End Function
Public Function getHtmlStr(strUrl As String)
   'getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode)去掉这行用下面
    getHtmlStr = Utf8ToUnicode(XmlHttp.responseBody)'=调用转换函数   
End Function