证书无效或不正确的“ WinHttp.WinHttpRequest.5.1”

Question

我正在运行一个宏，该宏调用一个函数以从服务器检索信息。我正在使用“ WinHttp.WinHttpRequest.5.1”进行连接。该宏在我的请求中有95％返回有效结果，效果很好。但是其他5％导致以下错误：

运行时错误：授权证书无效或不正确-2147012851（80072f0d）

无论何时发生此错误，我都要登录该站点，然后从停止的地方执行我的代码。然后导致错误的相同请求返回有效结果

我是代理人。

Set htttpObj = CreateObject("WinHttp.WinHttpRequest.5.1")

url = PrefixoUrl + "/Clientes/ServerToExcel/S2E_001.php?func1=" & func1 & "&func2=" & func2
'time out
htttpObj.SetTimeouts 10000, 10000, 10000, 300000   

'open
If proxyNeeded And authNeeded Then
    htttpObj.Open "POST", url, False, ProxyUser, ProxyPass         
Else
    htttpObj.Open "POST", url, False
End If

'header
htttpObj.setRequestHeader headerName, headerValue

'Proxy IP
If proxyNeeded Then
    htttpObj.setProxy 2, ProxyIp + ":" + ProxyPort
End If

'proxy credentials
If proxyNeeded And authNeeded Then
    HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
    htttpObj.SetCredentials ProxyUser, ProxyPass, HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
End If

'Send
htttpObj.Send ("func1=" & func1 & "&func2=" & func2 & "&username=" & loginSite & "&psd=" & passSite)

任何想法为什么会发生这种情况或如何处理此错误？

Answer 1

我对有关证书的弹出消息有同样的问题。我找到了解决方案，它为我工作。在我的代码中，它看起来像这样：

Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")

xmlhttp.option(6) = False
xmlhttp.Open "GET", url, False
xmlhttp.send

该行xmlhttp.option(6) = False关闭了此有关证书的消息。