Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(VB.NET UWP/WinRT) GeoOp Exchange Refresh Token for New Access TokenDemonstrates how to use the /oauth2/token endpoint to exchange it for a new access token once the current access token has expired. Note: This example requires Chilkat v9.5.0.65 or greater.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example also assumes that OAuth2 access and refresh tokens were previously fetched. ' and saved in a JSON file. ' First get our previously obtained refresh token. ' { .... "refresh_token":"e6dqdG....mzjpT04w==", .... } Dim jsonToken As New Chilkat.JsonObject Dim success As Boolean = jsonToken.LoadFile("qa_data/tokens/geoop.json") Dim rest As New Chilkat.Rest ' Connect to GeoOp... Dim bAutoReconnect As Boolean = True success = Await rest.ConnectAsync("login.geoop.com",443,True,bAutoReconnect) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' Set the X-Version header. rest.AddHeader("X-Version","1.0") ' Provide the required form params to get the new access token Debug.WriteLine("refresh_token = " & jsonToken.StringOf("refresh_token")) rest.AddQueryParam("refresh_token",jsonToken.StringOf("refresh_token")) rest.AddQueryParam("grant_type","refresh_token") rest.AddQueryParam("client_id","GEOOP-CLIENT-ID") rest.AddQueryParam("client_secret","GEOOP-CLIENT-SECRET") Dim responseBody As String = Await rest.FullRequestFormUrlEncodedAsync("POST","/oauth2/token") If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' If the response status code did not indicate success, then see what happened.. If (rest.ResponseStatusCode <> 200) Then Debug.WriteLine("Request Header: ") Debug.WriteLine(rest.LastRequestHeader) Debug.WriteLine("----") Debug.WriteLine("Response StatusCode = " & rest.ResponseStatusCode) Debug.WriteLine("Response StatusLine: " & rest.ResponseStatusText) Debug.WriteLine("Response Header:") Debug.WriteLine(rest.ResponseHeader) Debug.WriteLine(responseBody) Exit Sub End If Dim json As New Chilkat.JsonObject json.EmitCompact = False json.Load(responseBody) ' Show the full JSON response. It should contain the new access token... Debug.WriteLine(json.Emit()) |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.