![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Xojo Plugin) ETrade OAuth1 Authorization (3-legged) Step 1Demonstrates the first step in 3-legged OAuth1 authorization for the ETrade REST API. This example sends an HTTP request to the "request token URL" to get a request token that begins the OAuth1 process. (See https://apisb.etrade.com/docs/api/authorization/request_token.html ) This example uses the sandbox request token URL. The live request token URL would be "https://api.etrade.com/oauth/request_token". Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean success = False // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim consumerKey As String consumerKey = "ETRADE_CONSUMER_KEY" Dim consumerSecret As String consumerSecret = "ETRADE_CONSUMER_SECRET" // Note: This example uses the sandbox request token URL. // The live Get Request Token Request URL is: // https://api.etrade.com/oauth/request_token // This example will use the Sandbox Token Request URL: Dim requestTokenUrl As String requestTokenUrl = "https://apisb.etrade.com/oauth/request_token" Dim http As New Chilkat.Http success = True http.OAuth1 = True http.OAuthConsumerKey = consumerKey http.OAuthConsumerSecret = consumerSecret http.OAuthCallback = "oob" Dim resp As New Chilkat.HttpResponse success = http.HttpNoBody("GET",requestTokenUrl,resp) If (success = False) Then System.DebugLog(http.LastErrorText) Return End If // If successful, the resp.BodyStr contains something like this: // oauth_token=-Wa_KwAAAAAAxfEPAAABV8Qar4Q&oauth_token_secret=OfHY4tZBX2HK4f7yIw76WYdvnl99MVGB&oauth_callback_confirmed=true System.DebugLog(resp.BodyStr) Dim hashTab As New Chilkat.Hashtable success = hashTab.AddQueryParams(resp.BodyStr) Dim requestToken As String requestToken = hashTab.LookupStr("oauth_token") Dim requestTokenSecret As String requestTokenSecret = hashTab.LookupStr("oauth_token_secret") http.OAuthTokenSecret = requestTokenSecret System.DebugLog("oauth_token = " + requestToken) System.DebugLog("oauth_token_secret = " + requestTokenSecret) // Save this request token for the next step.. Dim json As New Chilkat.JsonObject success = json.AppendString("oauth_token",requestToken) success = json.AppendString("oauth_token_secret",requestTokenSecret) Dim fac As New Chilkat.FileAccess success = fac.WriteEntireTextFile("qa_data/tokens/etrade_request_token.json",json.Emit(),"utf-8",False) // --------------------------------------------------------------------------- // The next step is to form a URL to send to the authorizeUrl // This is an HTTP GET that we load into a popup browser. Dim authorizeUrl As String authorizeUrl = "https://us.etrade.com/e/t/etws/authorize" Dim sbUrlForBrowser As New Chilkat.StringBuilder success = sbUrlForBrowser.Append(authorizeUrl) success = sbUrlForBrowser.Append("?key=") success = sbUrlForBrowser.Append(consumerKey) success = sbUrlForBrowser.Append("&token=") success = sbUrlForBrowser.Append(requestToken) Dim url As String url = sbUrlForBrowser.GetAsString() // Launch the system's default browser navigated to the URL. Dim oauth2 As New Chilkat.OAuth2 success = oauth2.LaunchBrowser(url) If (success = False) Then System.DebugLog(oauth2.LastErrorText) Return End If // The ETrade account owner will login and grant access to the application. // A short verifier code will be displayed (as shown below), and this must be copy-and-pasted // into the next step to Complete the 3-legged OAuth1 Authorization // Note: The browser will NOT automatically direct you to the next page. // You should copy the verifier code, close the browser, and then paste the verifier // code into your application. // |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.