See below...
VB.NET Non-Interactive Login Attempt...
Collapse
X
-
Okay, I fiddled around and this works...
Try
Dim postData As String = "username=XXX&password=YYY"
Dim cert As New X509Certificate2("E:\CCC.p12", "")
Dim request As HttpWebRequest = WebRequest.Create("https://identitysso-api.betfair.com/api/certlogin")
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
request.Headers.Add("X-Application: ZZZ")
request.ClientCertificates.Add(cert)
request.Accept = "application/json"
Using dataStream As Stream = request.GetRequestStream()
Using writer As New StreamWriter(dataStream, Encoding.[Default])
writer.Write(postData)
End Using
End Using
Using stream As Stream = DirectCast(request.GetResponse(), HttpWebResponse).GetResponseStream()
Using reader As New StreamReader(stream, Encoding.[Default])
Dim responseFromServer As String = reader.ReadToEnd()
Print(responseFromServer)
End Using
End Using
Catch ex As Exception
Print("Exception " & ex.Message)
End Try
XXX is username, YYY is password, CCC is certificate name and ZZZ is AppKey.
The JSON response can be serialized to strip out the SSOID. Phew!Last edited by JayBee; 18-06-2015, 03:22 PM.


Comment