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指定的地址;

引用 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 未使用可识别的协议”，不知道如何处理了，还望高手不吝指教！！

这样:

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

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

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

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

给题主提个建议，发提问帖的时候，说明自己的操作系统版本。

如果能将自己的代码打包上传是最好的了。

谢谢各位回答，结帖

引用 5 楼 ixibin 的回复:

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

可以试试Python;