Windows 10更新后的非交互式api登录

Question

我正在使用此方法登录betfair api。一切工作正常，但在Windows 10更新（KB3140741）不再工作后。 ResponseText = {“loginStatus”：“CERT_AUTH_REQUIRED”}任何人都解决了这个问题？

的Windows 10构建10586.218，版本1511 的Microsoft Office 2016

Dim oHTTP As Object: Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 
Dim uri As String: uri = "https://identitysso.betfair.com/api/certlogin" 
oHTTP.Open "POST", uri, False 
oHTTP.SetClientCertificate "Common Name" 
oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
oHTTP.setRequestHeader "X-Application", App_key 
oHTTP.setRequestHeader "Accept", "application/json" 
oHTTP.send "username=" & UserName & "&password=" & Password & "" 

Answer 1

我会尝试用Msxml2.ServerXMLHTTP.6.0代替：

Const uri = "https://identitysso.betfair.com/api/certlogin" 

Dim req As Object 
Set req = CreateObject("Msxml2.ServerXMLHTTP.6.0") 

req.Open "POST", uri, False 
req.setOption 2, 13056   ' ignore all certificate errors ' 
req.setOption 3, "Common Name" ' set the client certificate from the local store ' 
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
req.setRequestHeader "X-Application", App_key 
req.setRequestHeader "Accept", "application/json" 
req.send "username=" & UserName & "&password=" & Password & ""