B4X

ETrade Renew Access Token

See more ETrade Examples

Renews an ETrade OAuth access token. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("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 ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/etrade.json")
If success <> True Then
    Log("Failed to load OAuth1 token")
    Return
End If


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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpNoBody("GET", "https://api.etrade.com/oauth/renew_access_token", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Make sure a successful response was received.
If resp.StatusCode <> 200 Then
    Log(resp.StatusLine)
    Log(resp.Header)
    Log(resp.BodyStr)
    Return
End If


'  If successful, the resp.BodyStr contains something like this:
'  oauth_token=%3TiQRgQCRGPo7Xdk6G8QDSEzX0Jsy6sKNcULcDavAGgU%3D&oauth_token_secret=%7RrC9scEpzcwSEMy4vE7nodSzPLqfRINnTNY4voczyFM%3D
Log(resp.BodyStr)

Dim sbRespBody As ChilkatStringBuilder
sbRespBody.Initialize
resp.GetBodySb(sbRespBody)
If sbRespBody.ContentsEqual("Access Token has been renewed", False) Then
    '  The documentation at https://apisb.etrade.com/docs/api/authorization/renew_access_token.html
    '  indicates that the response should be as described above.  However, the response received when
    '  trying to refresh a non-expired token was "Access Token has been renewed"
    Log("Keeping the same access token, but it's renewed...")
    Return
End If


Dim hashTab As ChilkatHashtable
hashTab.Initialize
hashTab.AddQueryParams(resp.BodyStr)

Dim accessToken As String = hashTab.LookupStr("oauth_token")
Dim accessTokenSecret As String = hashTab.LookupStr("oauth_token_secret")

'  The access token + secret is what should be saved and used for
'  subsequent REST API calls.
Log("Access Token = " & accessToken)
Log("Access Token Secret = " & accessTokenSecret)

'  Save this access token for future calls.
'  Just in case we need user_id and screen_name, save those also..
Dim json As ChilkatJsonObject
json.Initialize
json.AppendString("oauth_token", accessToken)
json.AppendString("oauth_token_secret", accessTokenSecret)

Dim fac As ChilkatFileAccess
fac.Initialize
fac.WriteEntireTextFile("qa_data/tokens/etrade.json", json.Emit, "utf-8", False)

Log("Success.")