(VB.NET UWP/WinRT) ETrade Get Account Balances

Retrieves the current account balance and related details for a specified account.

For more information, see https://apisb.etrade.com/docs/api/account/api-balance-v1.html

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New Chilkat.Http

http.OAuth1 = True
http.OAuthVerifier = ""
http.OAuthConsumerKey = "ETRADE_CONSUMER_KEY"
http.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET"

' Load the access token previously obtained via the OAuth1 Authorization
Dim jsonToken As New Chilkat.JsonObject
Dim success As Boolean = jsonToken.LoadFile("qa_data/tokens/etrade.json")
If (success <> True) Then
    Debug.WriteLine("Failed to load OAuth1 token")
    Exit Sub
End If


http.OAuthToken = jsonToken.StringOf("oauth_token")
http.OAuthTokenSecret = jsonToken.StringOf("oauth_token_secret")

Dim sandboxUrl As String = "https://apisb.etrade.com/v1/accounts/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true"
Dim liveUrl As String = "https://api.etrade.com/v1/accounts/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true"

http.SetUrlVar("accountIdKey","6_Dpy0rmuQ9cu9IbTfvF2A")
http.SetUrlVar("instType","BROKERAGE")

Dim resp As Chilkat.HttpResponse = Await http.QuickGetObjAsync(sandboxUrl)
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


' Make sure a successful response was received.
If (resp.StatusCode > 200) Then
    Debug.WriteLine(resp.StatusLine)
    Debug.WriteLine(resp.Header)
    Debug.WriteLine(resp.BodyStr)
    Exit Sub
End If


' Sample XML response:

' Use this online tool to generate parsing code from sample XML: 
' Generate Parsing Code from XML

' <?xml version="1.0" encoding="UTF-8"?>
' <BalanceResponse>
'    <accountId>83564979</accountId>
'    <accountType>PDT_ACCOUNT</accountType>
'    <optionLevel>LEVEL_4</optionLevel>
'    <accountDescription>KRITHH TT</accountDescription>
'    <quoteMode>6</quoteMode>
'    <dayTraderStatus>PDT_MIN_EQUITY_RES_1XK</dayTraderStatus>
'    <accountMode>PDT ACCOUNT</accountMode>
'    <Cash>
'       <fundsForOpenOrdersCash>0</fundsForOpenOrdersCash>
'       <moneyMktBalance>0</moneyMktBalance>
'    </Cash>
'    <Computed>
'       <cashAvailableForInvestment>0</cashAvailableForInvestment>
'       <netCash>93921.44</netCash>
'       <cashBalance>93921.44</cashBalance>
'       <settledCashForInvestment>0</settledCashForInvestment>
'       <unSettledCashForInvestment>0</unSettledCashForInvestment>
'       <fundsWithheldFromPurchasePower>0</fundsWithheldFromPurchasePower>
'       <fundsWithheldFromWithdrawal>0</fundsWithheldFromWithdrawal>
'       <marginBuyingPower>0</marginBuyingPower>
'       <cashBuyingPower>93921.44</cashBuyingPower>
'       <dtMarginBuyingPower>0</dtMarginBuyingPower>
'       <dtCashBuyingPower>0</dtCashBuyingPower>
'       <shortAdjustBalance>0</shortAdjustBalance>
'       <regtEquity>0</regtEquity>
'       <regtEquityPercent>0</regtEquityPercent>
'       <accountBalance>0</accountBalance>
'    </Computed>
'    <Margin>
'       <dtCashOpenOrderReserve>0</dtCashOpenOrderReserve>
'       <dtMarginOpenOrderReserve>0</dtMarginOpenOrderReserve>
'    </Margin>
' </BalanceResponse>

Dim xml As New Chilkat.Xml
xml.LoadXml(resp.BodyStr)
Debug.WriteLine(xml.GetXml())

Dim accountId As Integer
Dim accountType As String
Dim optionLevel As String
Dim accountDescription As String
Dim quoteMode As Integer
Dim dayTraderStatus As String
Dim accountMode As String
Dim fundsForOpenOrdersCash As Integer
Dim moneyMktBalance As Integer
Dim cashAvailableForInvestment As Integer
Dim netCash As String
Dim cashBalance As String
Dim settledCashForInvestment As Integer
Dim unSettledCashForInvestment As Integer
Dim fundsWithheldFromPurchasePower As Integer
Dim fundsWithheldFromWithdrawal As Integer
Dim marginBuyingPower As Integer
Dim cashBuyingPower As String
Dim dtMarginBuyingPower As Integer
Dim dtCashBuyingPower As Integer
Dim shortAdjustBalance As Integer
Dim regtEquity As Integer
Dim regtEquityPercent As Integer
Dim accountBalance As Integer
Dim dtCashOpenOrderReserve As Integer
Dim dtMarginOpenOrderReserve As Integer

accountId = xml.GetChildIntValue("accountId")
accountType = xml.GetChildContent("accountType")
optionLevel = xml.GetChildContent("optionLevel")
accountDescription = xml.GetChildContent("accountDescription")
quoteMode = xml.GetChildIntValue("quoteMode")
dayTraderStatus = xml.GetChildContent("dayTraderStatus")
accountMode = xml.GetChildContent("accountMode")
fundsForOpenOrdersCash = xml.GetChildIntValue("Cash|fundsForOpenOrdersCash")
moneyMktBalance = xml.GetChildIntValue("Cash|moneyMktBalance")
cashAvailableForInvestment = xml.GetChildIntValue("Computed|cashAvailableForInvestment")
netCash = xml.GetChildContent("Computed|netCash")
cashBalance = xml.GetChildContent("Computed|cashBalance")
settledCashForInvestment = xml.GetChildIntValue("Computed|settledCashForInvestment")
unSettledCashForInvestment = xml.GetChildIntValue("Computed|unSettledCashForInvestment")
fundsWithheldFromPurchasePower = xml.GetChildIntValue("Computed|fundsWithheldFromPurchasePower")
fundsWithheldFromWithdrawal = xml.GetChildIntValue("Computed|fundsWithheldFromWithdrawal")
marginBuyingPower = xml.GetChildIntValue("Computed|marginBuyingPower")
cashBuyingPower = xml.GetChildContent("Computed|cashBuyingPower")
dtMarginBuyingPower = xml.GetChildIntValue("Computed|dtMarginBuyingPower")
dtCashBuyingPower = xml.GetChildIntValue("Computed|dtCashBuyingPower")
shortAdjustBalance = xml.GetChildIntValue("Computed|shortAdjustBalance")
regtEquity = xml.GetChildIntValue("Computed|regtEquity")
regtEquityPercent = xml.GetChildIntValue("Computed|regtEquityPercent")
accountBalance = xml.GetChildIntValue("Computed|accountBalance")
dtCashOpenOrderReserve = xml.GetChildIntValue("Margin|dtCashOpenOrderReserve")
dtMarginOpenOrderReserve = xml.GetChildIntValue("Margin|dtMarginOpenOrderReserve")

Debug.WriteLine("Success.")