Неинтерактивный api логин после окон 10 обновление

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