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 & ""