vb 2008 place bets how?

[rotter]

Hi All

Does anyone know I can place bets with vb 2008 express?

Thanks
Rotter

[rotter]

Ok Managed to do it (after a whole weekend).
Here is the code... just if someone else needs it...

Dim request As WebRequest = WebRequest.Create("https://api.games.betfair.com/rest/v1/bet/order?username=rotter")
request.Method = "POST"

request.Headers.Add("gamexAPIAgent", "maryBrown@AOL.com.myGames.4.0")
request.Headers.Add("gamexAPIAgentInstance", "0d69ee8290ee2f9b336c1f060e3497a5")
request.Headers.Add("gamexAPIPassword", "password")

Dim Postdata As String = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
Postdata = Postdata & "<postBetOrder xmlns=""urn:betfair:games:api:v1"" " & vbCrLf
Postdata = Postdata & "marketId=""" & BetmarketID & """ round=""1"" currency=""GBP"">" & vbCrLf
Postdata = Postdata & "<betPlace>" & vbCrLf
Postdata = Postdata & "<bidType>LAY</bidType>" & vbCrLf
Postdata = Postdata & "<price>4.05</price>" & vbCrLf
Postdata = Postdata & "<size>2.00</size>" & vbCrLf
Postdata = Postdata & "<selectionId>1032056</selectionId>" & vbCrLf 'spades
Postdata = Postdata & "</betPlace>" & vbCrLf
Postdata = Postdata & "</postBetOrder>" & vbCrLf


Dim byteArray As Byte() = Encoding.UTF8.GetBytes(Postdata)

request.ContentLength = byteArray.Length
' Get the request stream.
Dim dataStream As Stream = request.GetRequestStream()
' Write the data to the request stream.
dataStream.Write(byteArray, 0, byteArray.Length)
' Close the Stream object.
dataStream.Close()
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.

Form1.TextBox1.Text = CType(response, HttpWebResponse).StatusDescription
' Get the stream containing content returned by the server.
dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Form1.TextBox1.Text = responseFromServer
' Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()