求救！用WinHttp获取网页内容失败！

[ixibin]

VB6代码如下：

Private Sub Command1_Click()
    Dim WinHttp             As Object
    Dim strTemp             As String
    Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    winHttp.Open "GET", "https://xin.baidu.com/", True
    winHttp.setRequestHeader "Content-Type", "text/html"
    winHttp.setRequestHeader "Accept-Language", "zh-cn"
    winHttp.setRequestHeader "Connection", "Keep-Alive"
    winHttp.setRequestHeader "Accept", "*/*"
    winHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; " & _
        "Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1))"
    winHttp.Send ""
    winHttp.WaitForResponse
    strTemp = winHttp.ResponseText
    Debug.Print strTemp
End Sub

各位高手，上述代码无法获取网页内容（“https://xin.baidu.com/”用浏览器可以正常打开），但是上述代码换其他网页（例如“https://www.baidu.com/”)就能够获取，请问需要怎么弄才能获取呢？谢谢！！！

[milaoshu1020]

Connection: keep-alive
Date: Sat, 18 Jan 2020 14:55:36 GMT
Content-Length: 0
Content-Type: text/html; charset=UTF-8
Location: http://cas.baidu.com/?action=check&appid=582&rb=1&u=http%3A%2F%2Fxin.baidu.com%2F%3Ffl%3D1
Server: nginx

这是服务器返回的Header,可以继续访问Location指定的地址;

[milaoshu1020]

这样:

Private Sub Command1_Click()
    Dim WinHttp             As Object
    Dim strTemp             As String
    Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    WinHttp.Open "GET", "https://xin.baidu.com/", True
    WinHttp.setRequestHeader "Content-Type", "text/html"
    WinHttp.setRequestHeader "Accept-Language", "zh-cn"
    WinHttp.setRequestHeader "Connection", "Keep-Alive"
    WinHttp.setRequestHeader "Accept", "*/*"
    WinHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; " & _
        "Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1))"
    WinHttp.Send ""
    WinHttp.WaitForResponse
    strTemp = WinHttp.GetAllResponseHeaders
    Debug.Print strTemp
End Sub

[milaoshu1020]

WinHttp.GetResponseHeader("Location")
返回Header中的Location;

[ixibin]

引用 1 楼 milaoshu1020 的回复:

Connection: keep-alive Date: Sat, 18 Jan 2020 14:55:36 GMT Content-Length: 0 Content-Type: text/html; charset=UTF-8 Location: http://cas.baidu.com/?action=check&appid=582&rb=1&u=http%3A%2F%2Fxin.baidu.com%2F%3Ffl%3D1 Server: nginx 这是服务器返回的Header,可以继续访问Location指定的地址;

谢谢回复！ 请问上面的Header信息在哪里能看到呢？另外我尝试将Location的信息放到代码里，结果运行时报-2147012890错误“URL 未使用可识别的协议”，不知道如何处理了，还望高手不吝指教！！

[ixibin]

谢谢 @milaoshu1020 ！我还想请教一下能否有办法获得 xin.baidu.com 的内容呢？我实在没办法了

[xulei1024]

按理是不能的，百度，淘宝都是有防抓取机制的

[greatbody]

给题主提个建议，发提问帖的时候，说明自己的操作系统版本。 如果能将自己的代码打包上传是最好的了。

[ixibin]

谢谢各位回答，结帖

[milaoshu1020]

引用 5 楼 ixibin 的回复:

谢谢 @milaoshu1020 ！我还想请教一下能否有办法获得 xin.baidu.com 的内容呢？我实在没办法了

可以试试Python;