Using VB2008 to acccess the Betfair API: A tutorial

[Mumbles0]

Alth79,

In step 19 TheBetId is the name of a variable accessed from within the PlaceBet sub. Make sure that you have declared it outside the sub with a line like this:

Dim TheBetId As Long

(In step 19 this has been declared in the code for the test call.)

[Alth79]

Placing a bet

Hi Mumbles0
Wow - what a brilliant tutorial, thanks for your time and effor!

I have pulled together a basic bot following your advice and am kean to progress this further. I have completed all of your steps upto step 19 - the placing a bet section.

This might seam like a stupid problem but I cannot place a bet because i receive an error message stating:

"Name 'TheBetID' is not declared

Sorry if this is something trivial which I should be aware of!

If you could let me know how to deal with this it would be much appreciated

Cheers

[mbrylski]

RE: App.config file

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
    </startup>
    <system.serviceModel>
        <bindings>
            <basicHttpBinding>
                <binding name="BFGlobalService" closeTimeout="00:01:00" openTimeout="00:01:00"
                    receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
                    bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
                    maxBufferSize="999999999" maxBufferPoolSize="524288" maxReceivedMessageSize="999999999"
                    messageEncoding="Text" textEncoding="utf-8" transferMode="Buffered"
                    useDefaultWebProxy="true">
                    <readerQuotas maxDepth="32" maxStringContentLength="999999999" maxArrayLength="16384"
                        maxBytesPerRead="4096" maxNameTableCharCount="16384" />
                    <security mode="Transport">
                        <transport clientCredentialType="None" proxyCredentialType="None"
                            realm="" />
                        <message clientCredentialType="UserName" algorithmSuite="Default" />
                    </security>
                </binding>
                <binding name="BFGlobalService1" closeTimeout="00:01:00" openTimeout="00:01:00"
                    receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
                    bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
                    maxBufferSize="999999999" maxBufferPoolSize="524288" maxReceivedMessageSize="999999999"
                    messageEncoding="Text" textEncoding="utf-8" transferMode="Buffered"
                    useDefaultWebProxy="true">
                    <readerQuotas maxDepth="32" maxStringContentLength="999999999" maxArrayLength="16384"
                        maxBytesPerRead="4096" maxNameTableCharCount="16384" />
                    <security mode="None">
                        <transport clientCredentialType="None" proxyCredentialType="None"
                            realm="" />
                        <message clientCredentialType="UserName" algorithmSuite="Default" />
                    </security>
                </binding>
                <binding name="BFExchangeService" closeTimeout="00:01:00" openTimeout="00:01:00"
                    receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
                    bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
                    maxBufferSize="999999999" maxBufferPoolSize="524288" maxReceivedMessageSize="999999999"
                    messageEncoding="Text" textEncoding="utf-8" transferMode="Buffered"
                    useDefaultWebProxy="true">
                    <readerQuotas maxDepth="32" maxStringContentLength="999999999" maxArrayLength="16384"
                        maxBytesPerRead="4096" maxNameTableCharCount="16384" />
                    <security mode="Transport">
                        <transport clientCredentialType="None" proxyCredentialType="None"
                            realm="" />
                        <message clientCredentialType="UserName" algorithmSuite="Default" />
                    </security>
                </binding>
                <binding name="BFExchangeService1" closeTimeout="00:01:00" openTimeout="00:01:00"
                    receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
                    bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
                    maxBufferSize="999999999" maxBufferPoolSize="524288" maxReceivedMessageSize="999999999"
                    messageEncoding="Text" textEncoding="utf-8" transferMode="Buffered"
                    useDefaultWebProxy="true">
                    <readerQuotas maxDepth="32" maxStringContentLength="999999999" maxArrayLength="16384"
                        maxBytesPerRead="4096" maxNameTableCharCount="16384" />
                    <security mode="None">
                        <transport clientCredentialType="None" proxyCredentialType="None"
                            realm="" />
                        <message clientCredentialType="UserName" algorithmSuite="Default" />
                    </security>
                </binding>
            </basicHttpBinding>
        </bindings>
        <client>
            <endpoint address="https://api.betfair.com/global/v3/BFGlobalService"
                binding="basicHttpBinding" bindingConfiguration="BFGlobalService"
                contract="BFGlobal.BFGlobalService" name="BFGlobalService" />
            <endpoint address="https://api.betfair.com/exchange/v5/BFExchangeService"
                binding="basicHttpBinding" bindingConfiguration="BFExchangeService"
                contract="BFUK.BFExchangeService" name="BFExchangeService" />
        </client>
    </system.serviceModel>
</configuration>

[Mumbles0]

App.config file

My App.config file hasn't got this line in it. Could you please post a copy of your App.config for my information.

[mbrylski]

re: getAllMarkets problem

Thx Mumbles0

I found it this in App.config after changed value to 999999999 everything working correctly

<readerQuotas maxDepth="32" maxStringContentLength="999999999" maxArrayLength="16384" maxBytesPerRead="4096" maxNameTableCharCount="16384" />

[Mumbles0]

Reply to mbrylski (re: getAllMarkets problem)

Message=The maximum string content length quota (8192) has been exceeded while reading XML data. This quota may be increased by changing the MaxStringContentLength property on the XmlDictionaryReaderQuotas object used when creating the XML reader. Line 2, position 41100.

This error can occur when a large amount of data is returned by getAllMarkets. The length of the returned .marketData string exceeds a limit. The call should work if you request only a small number of markets.

As mentioned in the error message, the MaxStringContentLength property should be increased, but I don’t know how to do this.

Other people have had this problem too. Can someone suggest a way to fix it?

[mbrylski]

Problem with deserialize

Hi Mumbles,

Thank you for the great tutorial it is very helpful. But I have a problem with function “getAllMarkets” almost all the time I receive error.

“Error in deserializing body of reply message for operation 'getAllMarkets'.”

I have no idea how to solve this problem. If you can please help me.

   Private Sub bMarkets_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bMarkets.Click
        Print("*** Markets ***")
        Dim oMarketsReq As New BFUK.GetAllMarketsReq
        Dim oMarketsResp As BFUK.GetAllMarketsResp
        With oMarketsReq
            .header = oHeaderUK()
            ReDim .eventTypeIds(0) : .eventTypeIds(0) = 1
            .fromDate = Today.AddDays(2)
            .toDate = Today.AddDays(3)

        End With
        oMarketsResp = BetFairUK.getAllMarkets(oMarketsReq)  'Call the UK API
        With oMarketsResp
            CheckHeader(.header)
            Print("ErrorCode = " & .errorCode.ToString)
            If .errorCode = BFUK.GetAllMarketsErrorEnum.OK Then
                Dim AllMarkets As New UnpackAllMarkets(.marketData)   'Create an object and unpack the string
                With AllMarkets
                    For i = 0 To .marketData.Length - 1
                        With .marketData(i)
                            Print(.marketId & " " & .marketStatus & "  " & .marketName & "  " & .menuPath)
                        End With
                    Next
                End With
            End If
        End With
    End Sub

System.ServiceModel.CommunicationException was unhandled
  Message=Error in deserializing body of reply message for operation 'getAllMarkets'.
  Source=mscorlib
  StackTrace:
    Server stack trace: 
       at System.ServiceModel.Dispatcher.XmlSerializerOperationFormatter.DeserializeBody(XmlDictionaryReader reader, MessageVersion version, XmlSerializer serializer, MessagePartDescription returnPart, MessagePartDescriptionCollection bodyParts, Object[] parameters, Boolean isRequest)
       at System.ServiceModel.Dispatcher.XmlSerializerOperationFormatter.DeserializeBody(XmlDictionaryReader reader, MessageVersion version, String action, MessageDescription messageDescription, Object[] parameters, Boolean isRequest)
       at System.ServiceModel.Dispatcher.OperationFormatter.DeserializeBodyContents(Message message, Object[] parameters, Boolean isRequest)
       at System.ServiceModel.Dispatcher.OperationFormatter.DeserializeReply(Message message, Object[] parameters)
       at System.ServiceModel.Dispatcher.ProxyOperationRuntime.AfterReply(ProxyRpc& rpc)
       at System.ServiceModel.Channels.ServiceChannel.HandleReply(ProxyOperationRuntime operation, ProxyRpc& rpc)
       at System.ServiceModel.Channels.ServiceChannel.Call(String action, Boolean oneway, ProxyOperationRuntime operation, Object[] ins, Object[] outs, TimeSpan timeout)
       at System.ServiceModel.Channels.ServiceChannelProxy.InvokeService(IMethodCallMessage methodCall, ProxyOperationRuntime operation)
       at System.ServiceModel.Channels.ServiceChannelProxy.Invoke(IMessage message)
    Exception rethrown at [0]: 
       at System.Runtime.Remoting.Proxies.RealProxy.HandleReturnMessage(IMessage reqMsg, IMessage retMsg)
       at System.Runtime.Remoting.Proxies.RealProxy.PrivateInvoke(MessageData& msgData, Int32 type)
       at TestForm.BFUK.BFExchangeService.getAllMarkets(getAllMarketsIn request)
       at TestForm.BFUK.BFExchangeServiceClient.BFUK_BFExchangeService_getAllMarkets(getAllMarketsIn request) in C:\Users\Dom\documents\visual studio 2010\Projects\TestForm\TestForm\Service References\BFUK\Reference.vb:line 12966
       at TestForm.BFUK.BFExchangeServiceClient.getAllMarkets(GetAllMarketsReq request) in C:\Users\Dom\documents\visual studio 2010\Projects\TestForm\TestForm\Service References\BFUK\Reference.vb:line 12972
       at TestForm.Form1.bMarkets_Click(Object sender, EventArgs e) in C:\Users\Dom\documents\visual studio 2010\Projects\TestForm\TestForm\Form1.vb:line 104
       at System.Windows.Forms.Control.OnClick(EventArgs e)
       at System.Windows.Forms.Button.OnClick(EventArgs e)
       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       at System.Windows.Forms.Control.WndProc(Message& m)
       at System.Windows.Forms.ButtonBase.WndProc(Message& m)
       at System.Windows.Forms.Button.WndProc(Message& m)
       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.Run(ApplicationContext context)
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at TestForm.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
       at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
       at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       at System.Threading.ThreadHelper.ThreadStart()
  InnerException: System.InvalidOperationException
       Message=There is an error in XML document (2, 41100).
       Source=System.Xml
       StackTrace:
            at System.Xml.Serialization.XmlSerializer.Deserialize(XmlReader xmlReader, String encodingStyle, XmlDeserializationEvents events)
            at System.ServiceModel.Dispatcher.XmlSerializerOperationFormatter.DeserializeBody(XmlDictionaryReader reader, MessageVersion version, XmlSerializer serializer, MessagePartDescription returnPart, MessagePartDescriptionCollection bodyParts, Object[] parameters, Boolean isRequest)
       InnerException: System.Xml.XmlException
            LineNumber=0
            LinePosition=0
            Message=The maximum string content length quota (8192) has been exceeded while reading XML data. This quota may be increased by changing the MaxStringContentLength property on the XmlDictionaryReaderQuotas object used when creating the XML reader. Line 2, position 41100.
            Source=System.Runtime.Serialization
            StackTrace:
                 at System.Xml.XmlExceptionHelper.ThrowXmlException(XmlDictionaryReader reader, String res, String arg1, String arg2, String arg3)
                 at System.Xml.XmlExceptionHelper.ThrowMaxStringContentLengthExceeded(XmlDictionaryReader reader, Int32 maxStringContentLength)
                 at System.Xml.XmlDictionaryReader.ReadString(Int32 maxStringContentLength)
                 at System.Xml.XmlDictionaryReader.ReadString()
                 at System.Xml.XmlBaseReader.ReadElementString()
                 at Microsoft.Xml.Serialization.GeneratedAssembly.XmlSerializationReaderBFExchangeService.Read32_GetAllMarketsResp(Boolean isNullable, Boolean checkType)
                 at Microsoft.Xml.Serialization.GeneratedAssembly.XmlSerializationReaderBFExchangeService.Read154_getAllMarketsResponse()
                 at Microsoft.Xml.Serialization.GeneratedAssembly.ArrayOfObjectSerializer8.Deserialize(XmlSerializationReader reader)
                 at System.Xml.Serialization.XmlSerializer.Deserialize(XmlReader xmlReader, String encodingStyle, XmlDeserializationEvents events)
            InnerException:

[waldjunge]

Bet less then minimum stake

I have tried to write code for betting less then the minimum stake for Lay betting, according to this guideline.

'Documentation will not help you with this issue. Trick is to do it in few steps.
'If you want, for example, to place £0.1 bet then place regular £2 bet on highest quote (1000 if you want to back)
'or lowest quote (1.01 if you want to lay). The bet will not be matched.
'Change its amount to 2.1£ and as result you will have two bets: one with £2 and the other with £0.1 amount.
'Cancel first one, change £0.1 bet quote on the desired value and that's it

But I can not really update the bet to get a new betID and a new stake.

Private Sub betSmallStake()                         'Place bet less then the minimum Stake of 2 on LAY bets
        Dim oPlaceBetsReq As New BFUK.PlaceBetsReq      'Create the request object
        Dim oPlaceBetsResp As BFUK.PlaceBetsResp        'A variable to hold the response object
        Dim oBet As New BFUK.PlaceBets                  'An object to specify the bet

        Dim oUpdateBetsReq As New BFUK.UpdateBetsReq
        Dim oUpdateBetsResp As New BFUK.UpdateBetsResp
        Dim oUpdateFrage As New BFUK.UpdateBets
        Dim oUpdateAnswer As New BFUK.UpdateBetsResult

        Dim ersteBET As Long
        Dim neueBetID As Long

        Dim YourMarket As Long
        Dim YourSelection As Long
        Dim YourBetType As New BFUK.BetTypeEnum
        Dim BetSize, BetPrice As Double

        YourMarket = 101560066
        YourSelection = 3079062
        YourBetType = BFUK.BetTypeEnum.L
        BetSize = 0.1
        BetPrice = 1.01


        'Documentation will not help you with this issue. Trick is to do it in few steps. 
        'If you want, for example, to place £0.1 bet then place regular £2 bet on highest quote (1000 if you want to back) 
        'or lowest quote (1.01 if you want to lay). The bet will not be matched. 
        'Change its amount to 2.1£ and as result you will have two bets: one with £2 and the other with £0.1 amount. 
        'Cancel first one, change £0.1 bet quote on the desired value and that's it

        With oPlaceBetsReq
            .header = oHeaderUK()            'The standard header
            With oBet                        'Specify the bet details:
                .asianLineId = 0             'Non-asian handicap market 
                .betCategoryType = BFUK.BetCategoryTypeEnum.E    'Normal exchange bet
                .betPersistenceType = BFUK.BetPersistenceTypeEnum.NONE  'Standard bet (not SP or InPlay persistence)
                .betType = YourBetType       'Back or Lay
                .marketId = YourMarket       'The market of interest
                .price = 1.01                'The desired price (odds)
                .selectionId = YourSelection 'Your selection of interest
                .size = 2                    'The bet amount (stake)
                .bspLiability = 0            'Must be 0 for non-SP bet
            End With
            ReDim .bets(0)    'Array length = 1 to hold single bet
            .bets(0) = oBet   'Put the bet details object in element 0
        End With

        oPlaceBetsResp = BetFairUK.placeBets(oPlaceBetsReq)

        With oPlaceBetsResp                                             ' Place 1. bet 
            If .errorCode = BFUK.PlaceBetsErrorEnum.OK Then
                With .betResults(0)
                    If .success Then
                        ersteBET = .betId

                        '----------------------------------------------- ' Update 1. bet - Change Price and Stakesize
                        With oUpdateBetsReq
                            .header = oHeaderUK()            'The standard header
                            With oUpdateFrage
                                .oldBetPersistenceType = BFUK.BetPersistenceTypeEnum.NONE
                                .newBetPersistenceType = BFUK.BetPersistenceTypeEnum.NONE
                                .betId = ersteBET

                                .oldPrice = 1.01
                                '.newPrice = 9.8

                                .oldSize = 2
                                .newSize = 2.1
                            End With
                        End With

                        oUpdateBetsResp = BetFairUK.updateBets(oUpdateBetsReq)

                        With oUpdateBetsResp
                            CheckHeader(.header)
                            If .errorCode = BFUK.UpdateBetsErrorEnum.OK Then box("Error OK ")
                            With oUpdateAnswer
                                If .resultCode = BFUK.UpdateBetsResultEnum.OK Then box("   Update A OK " & .success)
                                If .success = True Then
                                    neueBetID = .newBetId '?
                                    BetPrice = .newPrice  '?
                                    BetSize = .newSize    '?
                                    cancelBets(ersteBET)  '?
                                End If
                            End With
                        End With
                    End If
                End With
            End If
        End With
    End Sub

    Sub CancelBet(ByVal betId As Long)

        Dim oCancelBetsReq As New BFUK.CancelBetsReq   'Create the request object
        Dim oCancelBetsResp As BFUK.CancelBetsResp     'A variable to hold the response object
        With oCancelBetsReq
            .header = oHeaderUK()      'The standard request header
            ReDim .bets(0)                    'Single element array
            .bets(0) = New BFUK.CancelBets    'Create an object of type CancelBets
            .bets(0).betId = betId          'The BetId to be cancelled
        End With

        oCancelBetsResp = BetFairUK.cancelBets(oCancelBetsReq)  'Call API to cancel the bet

        With oCancelBetsResp     'The response
            CheckHeader(.header)
            Print("ErrorCode = " & .errorCode.ToString)
            If .errorCode = BFUK.CancelBetsErrorEnum.OK Then  'The call succeeded
                For i = 0 To .betResults.Length - 1   'In this case there should only be one result
                    With .betResults(i)
                        Print(.resultCode.ToString)   'The result of the cancellation
                        If .success Then Print("BetId " & .betId & " cancelled")
                    End With
                Next
            End If
        End With

    End Sub

[waldjunge]

I place Back and Lay bets with the PlaceBets object. Back bets are placed with 1.1 to get automatically the best Back price. It works fine without any problems.

In the past I placed Lay bets with a price of: price +3 to be sure to get automatically the best Lay price. Lay betting has worked also in the past.

Dim oPlaceBetsReq As New BFUK.PlaceBetsReq 'Create the request object
Dim oPlaceBetsResp As BFUK.PlaceBetsResp 'A variable to hold the response object

Now when I place a Lay bet, the oPlaceBetsResp.errorcode is OK, but in the next step I get oPlaceBetsResp.resultcode=FROM_COUNTRY_FORBIDDEN

I am betting from UK. Why do I get first a OK message, and in the next step "FROM_COUNTRY_FORBIDDEN "?

oPlaceBetsResp.errorCode = BFUK.PlaceBetsErrorEnum.OK
oPlaceBetsResp.resultCode = BFUK.PlaceBetsErrorEnum.FROM_COUNTRY_FORBIDDEN

Thanks for help
Martin

[Mumbles0]

Saving your settings.

welcometomylair1,

If you want to save settings from one run to the next they must be saved in a file somewhere. There are many ways this can be done.

It’s fairly simple to extend the way we save the session token in the text file "SessToken.txt" so that other values are saved too. In step 3 we saved the session token in a text file with a single statement in the FormClosing event handler:

Private Sub TestForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

  My.Computer.FileSystem.WriteAllText(SessTokFile, oHeaderGL.sessionToken, False)

End Sub

This sub executes whenever you close the form. To save other values too try something like this:

Private Sub TestForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

  With My.Computer.FileSystem.OpenTextFileWriter(SessTokFile, False)

    .WriteLine(oHeaderGL.sessionToken)   'Save the session token
    .WriteLine(Setting1)                'Save setting 1
    .WriteLine(Setting2)               'Save setting 2
    .WriteLine(Setting3)              'Save setting 3
    			             'etc.
    .Close()                        'Done
  End With

End Sub

Here the settings can be any variable, object property or expression you like. You can examine what’s been written with Notepad. Note that each value appears on a new line in the file.

To read back the values when you restart your project change the Load event handler to incorporate the corresponding file reading code:

Private Sub TestForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

  With My.Computer.FileSystem.OpenTextFileReader(SessTokFile)

    oHeaderGL.sessionToken = .ReadLine   'Read the session token
    Setting1 = .ReadLine                'Read setting 1
    Setting2 = .ReadLine               'Read setting 2
    Setting3 = .ReadLine              'Read setting 3
			             'etc.
    .Close()                        'Done 
  End With

  .......
  .......

End Sub

This sub executes whenever you restart your project, restoring your previously saved setting values. Note that the .ReadLine method returns the next line from the file as a string. If you are restoring a numeric value it’s more robust to use the Val function, for example:

Freq = Val(.ReadLine) 'Restore Freq setting

This will return zero if the line contains a non-numeric value or doesn’t exist.

[Mumbles0]

Api_Error

gvigliani,

If the response's .errorcode is API_ERROR then the response's header.errorCode will give the reason. This is "printed" by the CheckHeader sub.

API_ERROR occurs if header.errorCode is anything other than OK.

[welcometomylair1]

Remember 'settings'

Hi Mumbles,

Thanks to your tutorial, I (like many others on here) have come on leaps and bounds in terms of vb programming and betting with the Betfair API - I would like to add my gratitude to the growing list!

I have a vb question which is not exactly related to the API that I was wondering if you could help with:

Let's say I am using the API to poll Betfair markets and I have a slider bar for 'frequency', a textbox which contains the location of the output file and any number of other customisible settings. What in your opinion would be the best way to 'remember' these settings so that if I adjust the frequency those adjustments are recorded and restored next time I load the application.

Hope that makes sense!

Thanks in advance

[gvigliani]

Events Function

Code:

Private Sub bEvents_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bEvents.Click
Print("*** Events ***")
Dim oEventsReq As New BFGlobal.GetEventTypesReq 'Create the request object
Dim oEventsResp As BFGlobal.GetEventTypesResp 'Create a variable for the response object
oEventsReq.header = oHeaderGL 'Load request parameters
oEventsResp = BetfairGL.getActiveEventTypes(oEventsReq) 'Call the API
With oEventsResp
CheckHeader(.header) 'Check response header
Print("ErrorCode = " & .errorCode.ToString)
If .errorCode = BFGlobal.GetEventsErrorEnum.OK Then 'Check the response errorcode
For i = 0 To .eventTypeItems.Length - 1 'Process the received data
With .eventTypeItems(i)
Print(.name & " (" & .id & ")")
End With
Next
End If
End With
End Sub

ErrorCode=API_ERROR

[waldjunge]

Does anybody know which API command give me those information of a race:

Group1
Group2
Group3

Good to firm or Firm

Handicap

Thanks
Martin

[Mumbles0]

marketId

Whistler,

Access for marketId

To make the marketId variable accessible from elsewhere in your project declare it outside the Sub using Friend (or Public):

Friend marketId as Integer

You must remove marketId from the Dim statement within the Sub. Note that marketId is an integer, not a string.

Invalid market

You tell me what’s wrong... What appears in tLog when you double click an item in the ListBox? Does it look like a valid market ID?