如何获得Google搜索结果页面的网页源码?我用inet和XMLHTTP都告诉我说拒绝的权限,下载不到网页源码

Question

本帖最后由 zyhyr119686 于 2013-08-14 18:32:07 编辑

Answer 1

这个貌似是因为对方服务器拒绝你访问,貌似没办法?换winhttp也一样吧?

Answer 2

你QQ多少，我的1085992075，我去年做过GOOGLE搜索工具，都可以下载呀？

Answer 3

Option Explicit
Private Sub Command1_Click()
    Dim GetUrl$, ReturnCode$
    GetUrl = "http://www.google.com.hk/search?q=site:http://www.justcon.net?mail&hl=zh-CN&newwindow=1&biw=1218&bih=539&num=100&lr=&ft=i&cr=l1"
    ReturnCode = GetByWinHttp(GetUrl)
    Debug.Print ReturnCode
End SubFunction GetByWinHttp$(ByVal GetUrl$)
    On Error Resume Next
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With XmlHttp
        .Open "GET", GetUrl, True
        .SetRequestHeader "Accept", "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/vnd.ms-xpsdocument, application/x-ms-applicationA, application/x-ms-xbap, application/xaml+xml1, */*"
        .SetRequestHeader "Accept-Language", "zh-cn"
        .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET4.0E; .NET4.0C)"
        .SetRequestHeader "Connection", "Keep-Alive"
        .Send
        .WaitForResponse
        GetByWinHttp = .ResponseText
    End With
    Set XmlHttp = Nothing
End Function

Answer 4

精简了下，加个TEXTBOX控件
Private Sub Command1_Click()
    Text1 = ""
    DoEvents
    Dim GetUrl$, ReturnCode$
    GetUrl = "http://www.google.com.hk/search?q=site:http://www.justcon.net?mail&hl=zh-CN&newwindow=1&biw=1218&bih=539&num=100&lr=&ft=i&cr=l1"
    ReturnCode = GetByWinHttp(GetUrl)
    Debug.Print ReturnCode
    Text1 = ReturnCode
    Text1.SelText = ReturnCode
End SubFunction GetByWinHttp$(ByVal GetUrl$)
    On Error Resume Next
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With XmlHttp
        .Open "GET", GetUrl, True
        .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET4.0E; .NET4.0C)"
        .Send
        .WaitForResponse
        GetByWinHttp = .ResponseText
    End With
    Set XmlHttp = Nothing
End Function