Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Login()
- Dim userName As String
- Dim password As String
- Dim apiKey As String
- userName = "username"
- password = "password"
- apiKey = "key123"
- 'activityTextbox.Text = ""
- 'clearData
- Dim authResult As Dictionary
- Set authResult = restClient.authenticateAccount(userName, password, apiKey)
- If Not authResult Is Nothing Then
- 'appendActivity "Connected"
- ' Configure Excel to pull streaming updates as often as possible
- Application.RTD.ThrottleInterval = 0
- ' Uncomment for real-time prices - this is very CPU intensive
- ' Buffer interval defaults to 500ms
- 'Application.WorksheetFunction.RTD "IG.api.excel.RTD.IGApiRTDServer", "", "bufferInterval", "0"
- ' Set manual refresh to true from very remote locations
- ' Application.WorksheetFunction.RTD "IG.api.excel.RTD.IGApiRTDServer", "", "manualRefresh", "true"
- ' This will require manually calling refresh to update lighstreamer subscriptions, i.e.
- ' Application.WorksheetFunction.RTD "IG.api.excel.RTD.IGApiRTDServer", "", "refresh"
- Dim maxPriceRequestsPerSecond As Double
- maxPriceRequestsPerSecond = 0 ' all available updates
- If restClient.streamingAuthentication(maxPriceRequestsPerSecond) Then
- m_loggedIn = True
- 'populateWatchlists
- 'populateAccounts
- 'manualStreamingRefresh
- 'Else
- ' appendActivity "Lightstreamer connection failure"
- End If
- Else
- MsgBox "Authentication failed"
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement