Trying to get a session code response from the Betfair site using VB6. My software, which I've written and been using in a particular industry for 20 years, therefore huge amount of code, so trying to do it through VB6, and I've done other XML feeds using the Web Service, which are working really well.
So.... the issue is, i make a call to the site, and the return I get is HTTP ERROR CODE 400 through the response text.
Part of the process, required I create a certificate, using OPENSSL , which worked fine, and the certificate uploaded to my test account on Betfair, and the account has been enabled for access. I've also sent the P12 Key to my certificate store on my local Windows 7 (32 Bit) development computer, which allowed the call to go through without any "Certificate Required" prompts, so appears to get through that part. However, once through the response coming back is "HTTP ERROR CODE 400", in the response text. So it's not making my code fall over in any way, just not returning a session key, which is obviously required to proceed further.
The code is as follows, of which a username and password string is passed to the function from a login form.
Public Function GetBetfairSessionID(sUserName As String, sPassword As String) As BetfairSessionInfo
Dim myMSXML As MSXML2.XMLHTTP60
Dim AuthURL As String
AuthURL = "https://identitysso.betfair.com/api/certlogin"
Set myMSXML = CreateObject("MSXML2.ServerXMLHTTP")
'myMSXML.setTimeouts 30000, 30000, 0, 0
myMSXML.open "POST", AuthURL, False
myMSXML.setRequestHeader "Accept", "application/json"
myMSXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
myMSXML.setRequestHeader "X-Application", [MY APPLICATION KEY AS GENERATED THROUGH BETFAIR]
myMSXML.send "userName=" & sUserName & "&password=" & sPassword
............ More code follows, but not valid as Response Text not returning Session ID etc...
Documentation for the Non-Interactive Login is available at: