(Excel) ETrade OAuth1 Authorization (3-legged) Step 1

Demonstrates 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".

Download Excel Class Modules Chilkat Excel Class Modules

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


consumerKey = "ETRADE_CONSUMER_KEY"

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:

requestTokenUrl = "https://apisb.etrade.com/oauth/request_token"

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

success = True

http.OAuth1 = True
http.OAuthConsumerKey = consumerKey
http.OAuthConsumerSecret = consumerSecret
http.OAuthCallback = "oob"


Set resp = http.QuickGetObj(requestTokenUrl)
If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' If successful, the resp.BodyStr contains something like this:  
' oauth_token=-Wa_KwAAAAAAxfEPAAABV8Qar4Q&oauth_token_secret=OfHY4tZBX2HK4f7yIw76WYdvnl99MVGB&oauth_callback_confirmed=true
Debug.Print resp.BodyStr

Dim hashTab As Chilkat.Hashtable
Set hashTab = Chilkat.NewHashtable
success = hashTab.AddQueryParams(resp.BodyStr)


requestToken = hashTab.LookupStr("oauth_token")

requestTokenSecret = hashTab.LookupStr("oauth_token_secret")
http.OAuthTokenSecret = requestTokenSecret

Debug.Print "oauth_token = "; requestToken
Debug.Print "oauth_token_secret = "; requestTokenSecret

' Save this request token for the next step..
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
success = json.AppendString("oauth_token",requestToken)
success = json.AppendString("oauth_token_secret",requestTokenSecret)

Dim fac As Chilkat.FileAccess
Set fac = Chilkat.NewFileAccess
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.

authorizeUrl = "https://us.etrade.com/e/t/etws/authorize"

Dim sbUrlForBrowser As Chilkat.StringBuilder
Set sbUrlForBrowser = Chilkat.NewStringBuilder
success = sbUrlForBrowser.Append(authorizeUrl)
success = sbUrlForBrowser.Append("?key=")
success = sbUrlForBrowser.Append(consumerKey)
success = sbUrlForBrowser.Append("&token=")
success = sbUrlForBrowser.Append(requestToken)

url = sbUrlForBrowser.GetAsString()

' At this point, your application should load the URL in a browser.
' For example, 
' in C#: System.Diagnostics.Process.Start(url);
' in Java: Desktop.getDesktop().browse(new URI(url));
' in VBScript: Set wsh=WScript.CreateObject("WScript.Shell")
'              wsh.Run url
' in Xojo: ShowURL(url)  (see http://docs.xojo.com/index.php/ShowURL)
' in Dataflex: Runprogram Background "c:\Program Files\Internet Explorer\iexplore.exe" sUrl        
' The Microsoft account owner would interactively accept or deny the authorization request.

' Add the code to load the url in a web browser here...
' Add the code to load the url in a web browser here...
' Add the code to load the url in a web browser here...

' 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.

'