Visual Basic 6

[gvigliani]

Dear Gary,

I use the Microsoft Visual Basic 6. I wanted to know if it is possible to extract data from BA without using the Excel spreadsheet. I think it's enough to use .Com but something is not working and I can not receive data. The data that interest me are the B_Odd1, B_Odd2, B_Odd3, Lay_odd1, Lay_Odd2, Lay_odd3 and references on Matched on various altitudes. If you can do it I would do an example so you can understand?
Thanks

[osknows]

You can get this direct from Betfair's API
https://bdp.betfair.com/index.php?optio ... &Itemid=44

[gvigliani]

You can get this direct from Betfair's API
https://bdp.betfair.com/index.php?optio ... &Itemid=44

I do not know how to do!
Thanks

[gvigliani]

You can get this direct from Betfair's API
https://bdp.betfair.com/index.php?optio ... &Itemid=44

Examples please !!!

[dgs2001]

Have a look at this thread on the punters lounge -

http://www.punterslounge.com/forum/f23/ ... api-67252/

Hope it helps
Duncan

[gvigliani]

Have a look at this thread on the punters lounge -

http://www.punterslounge.com/forum/f23/ ... api-67252/

Hope it helps
Duncan

There is nothing for VB6!!

[KevinTHFC]

Have a look at this thread on the punters lounge -

http://www.punterslounge.com/forum/f23/ ... api-67252/

Hope it helps
Duncan

There is nothing for VB6!!

Looks like VB to me?

[KevinTHFC]

Code: Select all

Private Function Keep_session_alive(original_key As String) As String

Dim xml_to_send As String, sReply As String


'create the SOAP Envelope    original_key is the latest STRsessionToken

xml_to_send = sEnvelope _
& "<m:keepAlive xmlns:m=" & QUOTE_MARK & "http://www.betfair.com/publicapi/BFService/" & QUOTE_MARK & ">" _
& "<m:request>" _
& "<header>" _
& "<clientStamp>" & GetClientStamp & "</clientStamp>" _
& "<sessionToken>" & original_key & "</sessionToken>" _
& "</header>" _
& "</m:request>" _
& "</m:keepAlive>" _
& "</SOAP-ENV:Body>" _
& "</SOAP-ENV:Envelope>"

' post the request & check the return in sReply variable for errors etc
sReply = MakeSOAPRequest(xml_to_send, "KeepAlive")

Debug.Print sReply

'===============
If InStr(sReply, QUOTE_MARK & "n2:APIErrorEnum" & QUOTE_MARK & ">OK<") > 0 Then ' this indicates was sent OK

   MsgBox "REQUESTING KEEPALIVE WAS OK :-) ", vbInformation


' parse the new session key here and store it in STRsessionToken
STRsessionToken = get_sessionToken(sReply)

'===============
Else

MsgBox "ERROR REQUESTING KEEPALIVE !", vbCritical
End If
'===============

End Function

[one click king]

At least he asks so nicely !!!!