(VB.NET UWP/WinRT) ETrade Renew Access Token

Renews an ETrade OAuth access token.

For more information, see https://apisb.etrade.com/docs/api/authorization/renew_access_token.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 resp As Chilkat.HttpResponse = Await http.QuickGetObjAsync("https://api.etrade.com/oauth/renew_access_token")
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


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

Dim sbRespBody As New Chilkat.StringBuilder
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"
    Debug.WriteLine("Keeping the same access token, but it's renewed...")
    Exit Sub
End If


Dim hashTab As New Chilkat.Hashtable
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.
Debug.WriteLine("Access Token = " & accessToken)
Debug.WriteLine("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 New Chilkat.JsonObject
json.AppendString("oauth_token",accessToken)
json.AppendString("oauth_token_secret",accessTokenSecret)

Dim fac As New Chilkat.FileAccess
fac.WriteEntireTextFile("qa_data/tokens/etrade.json",json.Emit(),"utf-8",False)

Debug.WriteLine("Success.")