Test_Ba_Com.xls Question

[Khryll]

Hello everyone

1. Is there an option to refresh all markets per Com Interface in BA? Like the Refresh Button in BA for all Markets?

2. I tried the part from the TEST_BA_COM.xls from the User's Guide followed bellow where i was able to place bets on all Win markets but not on the Place markets. Is there a way to get the Place markets too?

Code: Select all

Private Sub CommandButton1_Click()
    If ba Is Nothing Then
        Set ba = New BettingAssistantCom.ComClass
    End If
    Set bal = ba.getBalance(1)
    Range("J2").Value = bal.availBalance
    Range("J3").Value = bal.balance
    Range("J4").Value = bal.exposure
    sports = ba.getSports()
    For Each sport In sports
        If sport.sportid = 13 Then
            events = ba.getEvents(sport.sportId)
            For Each evnt In events
                diff = DateDiff("s", Now(), evnt.startTime)
                If diff >= 200 And InStr(evnt.eventName, "(") = 0 Then
                    result = ba.openMarket(evnt.eventId, evnt.exchangeId)
                   
                End If
            Next
        End If
    Next
    ba.refreshRate = 1


I am not that familiar with VBA and appreciate your Help.

Thanks

Code: Select all