Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) ETrade Get QuoteShows how to send a GET for a stock quote using ETrade with OAuth1 authorization.
' This example assumes the Chilkat HTTP 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 3-Legged Authorization Dim json As New Chilkat.JsonObject Dim success As Boolean = json.LoadFile("qa_data/tokens/etrade.json") If (success <> True) Then Debug.WriteLine("Failed to load OAuth1 token") Exit Sub End If http.OAuthToken = json.StringOf("oauth_token") http.OAuthTokenSecret = json.StringOf("oauth_token_secret") Dim respStr As String = http.QuickGetStr("https://etwssandbox.etrade.com/market/sandbox/rest/quote/MSFT?detailFlag=ALL") If (http.LastMethodSuccess <> True) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If ' The response is XML. A sample response is shown below. Debug.WriteLine(respStr) Debug.WriteLine("success.") ' Sample XML response: ' <QuoteResponse> ' <QuoteData> ' <all> ' <adjNonAdjFlag>false</adjNonAdjFlag> ' <annualDividend>0.52</annualDividend> ' <ask>28.71</ask> ' <askExchange>NASDAQ National Market Sys (NMS)</askExchange> ' <askSize>15600</askSize> ' <askTime>12:14:22 EST 02-24-2010</askTime> ' <bid>28.7</bid> ' <bidExchange></bidExchange> ' <bidSize>15600</bidSize> ' <bidTime>12:14:22 EST 02-24-2010</bidTime> ' <chgClose>-0.3400000000000001</chgClose> ' <chgClosePrcn>-15.11</chgClosePrcn> ' <companyName>MICROSOFT CORP</companyName> ' <daysToExpiration>0</daysToExpiration> ' <dirLast>U</dirLast> ' <dividend>0.13</dividend> ' <eps>1.81</eps> ' <estEarnings>1.811</estEarnings> ' <exDivDate>11/17/2009</exDivDate> ' <exchgLastTrade>Pacific</exchgLastTrade> ' <fsi>N</fsi> ' <high>28.77</high> ' <high52>31.5</high52> ' <highAsk>28.77</highAsk> ' <highBid>28.76</highBid> ' <lastTrade>28.705</lastTrade> ' <low>28.38</low> ' <low52>14.87</low52> ' <lowAsk>28.39</lowAsk> ' <lowBid>28.0</lowBid> ' <numTrades>61376</numTrades> ' <open>28.52</open> ' <openInterest>0</openInterest> ' <optionStyle></optionStyle> ' <optionUnderlier></optionUnderlier> ' <prevClose>28.73</prevClose> ' <prevDayVolume>75648887</prevDayVolume> ' <primaryExchange>Q</primaryExchange> ' <symbolDesc>MICROSOFT CORP</symbolDesc> ' <todayClose>0.0</todayClose> ' <totalVolume>22403011</totalVolume> ' <upc>0</upc> ' <volume10Day>56676460</volume10Day> ' </all> ' <dateTime>12:14:22 EST 02-24-2010</dateTime> ' <product> ' <symbol>MSFT</symbol> ' <type>EQ</type> ' <exchange>Q</exchange> ' </product> ' </QuoteData> ' </QuoteResponse> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.