excel - VBA | WinHttpRequest.5.1 |忽略 SSL 错误不再起作用

Question

我正在使用 WinHttpRequest.5.1 对象在 excel 365 (16.0.11328.20562) vba 脚本上发出一些 https 请求。

我知道来自服务器的证书会发生错误，因为 CN 错误。因此，我使用忽略 ssl 错误的选项来抑制此错误。

我发誓以下代码在两周前有效，现在它抛出了这个错误:

runtime error -2147012727 (80072f89) certificate invalid

这是代码(包括:Microsoft WinHTTP 服务，版本 5.1 [winhttpcom.dll]):

Sub test()

   Dim url As String
   url = "https://someserver:5096/api/v1/$metadata"

   Dim winHttpReq As WinHttpRequest
   Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

   'Ignoriere SSL-Errors
   winHttpReq.Option(4) = 13056

   'I also tested
   'winHttpReq.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_Ignore_All
   'winHttpReq.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = SslErrorFlag_CertCNInvalid

   winHttpReq.Open "GET", url, False

   winHttpReq.Send ("")

   Debug.Print winHttpReq.ResponseText

End Sub

我不明白为什么我会收到证书无效错误，尽管 ssl-errors 应该被忽略。

我希望您知道为什么会发生这种情况，并提前感谢您的回答。

Answer 1

这对我来说非常有用
利用

winHttpReq.Option(4) = &H3300

代替

winHttpReq.Option(4) = 13056