![]() |
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
(Visual Basic 6.0) ETrade Revoke Access TokenRevokes an ETrade OAuth access token. Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://apisb.etrade.com/docs/api/authorization/revoke_access_token.html
Dim success As Long success = 0 ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New ChilkatHttp http.OAuth1 = 1 http.OAuthVerifier = "" http.OAuthConsumerKey = "ETRADE_CONSUMER_KEY" http.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET" ' Load the access token previously obtained via the OAuth1 Authorization ' This is the token that will be revoked. Dim jsonToken As New ChilkatJsonObject success = jsonToken.LoadFile("qa_data/tokens/etrade.json") If (success <> 1) Then Debug.Print "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 New ChilkatHttpResponse success = http.HttpNoBody("GET","https://api.etrade.com/oauth/revoke_access_token",resp) If (success = 0) Then Debug.Print http.LastErrorText Exit Sub End If ' Make sure a successful response was received. If (resp.StatusCode <> 200) Then Debug.Print resp.StatusLine Debug.Print resp.Header Debug.Print resp.BodyStr Exit Sub End If ' If successful, the resp.BodyStr contains something like this: Revoked Access Token Debug.Print resp.BodyStr Debug.Print "Success." |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.