KotakNet Core

Imports KotakNet.Core
Imports System.Threading

Module Demo
    Public Kotak As New Kotak

    ''' This is a basic example without any error handling
    Sub Main()
        '///Set Credentials
        '///set UserID property first before other properties as the settings are saved to file with 'UserID' as name
        Kotak.UserID = "XXXXXXXXX"
        Kotak.ConsumerKey = "xxxxxxxxxxxxxxxxxxxx"
        Kotak.ConsumerSecret = "xxxxxxxxxxxxxxxxxx"
        Kotak.AccessToken = "xxxxxxxxxx"
        Kotak.Password = "xxxx"

        '///Subscribe to Events
        AddHandler Kotak.AppUpdateEvent, AddressOf AppUpdate
        AddHandler Kotak.OrderUpdateEvent, AddressOf OrderUpdate
        AddHandler Kotak.QuotesReceivedEvent, AddressOf QuotesReceived

        '///Login to get Session Token
        Kotak.Login()

        '///Download Symbols
        Kotak.GetMasterContract()

        '/// Wait for the symbols to download
        Dim count As Integer = 0
        Do
            count = count + 1
            Thread.Sleep(1000)
            If (Kotak.SymbolStatus OrElse count > 300) Then Exit Do
        Loop

        If Not Kotak.SymbolStatus Then
            MsgBox("Symbol download fail", MsgBoxStyle.Exclamation, "KotakNet")
            Exit Sub
        End If

        '///Subscribe for Quotes
        Kotak.SubscribeQuotes("NSE", "ITC")
        Kotak.SubscribeQuotes("MCX", "CRUDEOIL22FEB18FUT")

        '///Place an order
        Dim OrderId As String = Kotak.PlaceRegularOrder("NSE", "ITC", "BUY", "MARKET", 1, "NRML", 0, 0)
        Console.WriteLine("OrderID: " & OrderId)

        Console.WriteLine("Press Any Key to exit")
        Console.ReadKey()
    End Sub

    Private Sub OrderUpdate(sender As Object, e As OrderUpdateEventArgs)
        Console.WriteLine("OrderUpdate - OrderId: " & e.OrderId & " Status: " & e.Status)
    End Sub

    Private Sub AppUpdate(sender As Object, e As AppUpdateEventArgs)
        Console.WriteLine("AppUpdate - Message: " & e.EventMessage)
    End Sub

    Private Sub QuotesReceived(sender As Object, e As QuotesReceivedEventArgs)
        Console.WriteLine("QuotesReceived - Symbol: " & e.TrdSym & " Ltp: " & e.LTP & " LTT: " & e.LTT.ToString("HH:mm:ss"))
    End Sub
End Module