VB.NET Non-Interactive Login Attempt...

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • JayBee
    Junior Member
    • Oct 2010
    • 114

    #1

    VB.NET Non-Interactive Login Attempt...

    See below...
    Last edited by JayBee; 18-06-2015, 03:21 PM.
  • JayBee
    Junior Member
    • Oct 2010
    • 114

    #2
    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

    Working...
    X