需要代理身份验证（http 错误 407），使用 WinHttpRequest 和集成 Windows 身份验证和 https 的代理

Question

我正在尝试使用来自 VBA 的 WinHttpRequest 从我的公司网络访问外部网站。该公司有一个需要集成 Windows 身份验证的代理服务器。

如果我尝试使用纯 http 访问 URL，则以下代码有效，但如果我尝试使用 https 访问 URL，则会得到 http 状态代码 407 - proxy authentication required。

我需要做什么才能使代码与 https 一起使用？

Sub a()
    Dim w As New WinHttp.WinHttpRequest

    'set proxy        
    w.SetProxy 2, "myproxy:8080"
    'use integrated windows authentication
    w.SetAutoLogonPolicy AutoLogonPolicy_Always
    w.Option(WinHttpRequestOption_EnableRedirects) = True
    w.Open "GET", "https://..."
    w.Send
    Debug.Print w.Status ' Status = 407
    Debug.Print w.Option(WinHttpRequestOption_URL)
End Sub

Answer 1

尝试，请插入（在Open 和Send 之间）一行用于设置凭据，另一行用于忽略（所有）SSL 错误。尝试以下方法：

Sub AccessSiteThroughProxy()
    Dim w As New WinHttp.WinHttpRequest

    'set proxy
    w.setProxy 2, "myproxy:8080"
    'use integrated windows authentication
    w.SetAutoLogonPolicy AutoLogonPolicy_Always
    w.Option(WinHttpRequestOption_EnableRedirects) = True
    w.Open "GET", "https://..."

    'try inserting a line to set credentials:________________________________________
     w.SetCredentials UserName, Password, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER ' try Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
     'in order to ignore SSL erors, try:
     w.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300
    '_________________________________________________________________________________

    w.send
    Debug.Print w.Status ' Status = 407
    Debug.Print w.Option(WinHttpRequestOption_URL)
End Sub