![]() |
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
(Classic ASP) Zoom OAuth2 Access TokenSee more Zoom ExamplesDemonstrates how to get a Zoom OAuth2.0 access token for desktop applications.For more information, see https://developers.zoom.us/docs/integrations/oauth/
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set oauth2 = Server.CreateObject("Chilkat.OAuth2") ' This should be the port in the localhost callback URL for your app. ' The callback URL would look like "http://localhost:3017/" if the port number is 3017. oauth2.ListenPort = 3017 oauth2.AuthorizationEndpoint = "https://zoom.us/oauth/authorize" oauth2.TokenEndpoint = "https://zoom.us/oauth/token" ' Replace these with actual values. oauth2.ClientId = "CLIENT_ID" oauth2.ClientSecret = "CLIENT_SECRET" oauth2.UseBasicAuth = 1 ' Make sure to change to the SPACE separated list of scopes you'll actually need. oauth2.Scope = "account:read:admin" ' Begin the OAuth2 three-legged flow. This returns a URL that should be loaded in a browser. url = oauth2.StartAuth() If (oauth2.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( oauth2.LastErrorText) & "</pre>" Response.End End If ' Launch the system's default browser navigated to the URL. success = oauth2.LaunchBrowser(url) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( oauth2.LastErrorText) & "</pre>" Response.End End If ' Now wait for the authorization. ' We'll wait for a max of 30 seconds. numMsWaited = 0 Do While (numMsWaited < 30000) And (oauth2.AuthFlowState < 3) oauth2.SleepMs 100 numMsWaited = numMsWaited + 100 Loop ' If there was no response from the browser within 30 seconds, then ' the AuthFlowState will be equal to 1 or 2. ' 1: Waiting for Redirect. The OAuth2 background thread is waiting to receive the redirect HTTP request from the browser. ' 2: Waiting for Final Response. The OAuth2 background thread is waiting for the final access token response. ' In that case, cancel the background task started in the call to StartAuth. If (oauth2.AuthFlowState < 3) Then success = oauth2.Cancel() Response.Write "<pre>" & Server.HTMLEncode( "No response from the browser!") & "</pre>" Response.End End If ' Check the AuthFlowState to see if authorization was granted, denied, or if some error occurred ' The possible AuthFlowState values are: ' 3: Completed with Success. The OAuth2 flow has completed, the background thread exited, and the successful JSON response is available in AccessTokenResponse property. ' 4: Completed with Access Denied. The OAuth2 flow has completed, the background thread exited, and the error JSON is available in AccessTokenResponse property. ' 5: Failed Prior to Completion. The OAuth2 flow failed to complete, the background thread exited, and the error information is available in the FailureInfo property. If (oauth2.AuthFlowState = 5) Then Response.Write "<pre>" & Server.HTMLEncode( "OAuth2 failed to complete.") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( oauth2.FailureInfo) & "</pre>" Response.End End If If (oauth2.AuthFlowState = 4) Then Response.Write "<pre>" & Server.HTMLEncode( "OAuth2 authorization was denied.") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( oauth2.AccessTokenResponse) & "</pre>" Response.End End If If (oauth2.AuthFlowState <> 3) Then Response.Write "<pre>" & Server.HTMLEncode( "Unexpected AuthFlowState:" & oauth2.AuthFlowState) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "OAuth2 authorization granted!") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Access Token = " & oauth2.AccessToken) & "</pre>" ' Get the full JSON response: set json = Server.CreateObject("Chilkat.JsonObject") success = json.Load(oauth2.AccessTokenResponse) json.EmitCompact = 0 ' The JSON response looks like this: Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' Save the JSON to a file for future requests. set fac = Server.CreateObject("Chilkat.FileAccess") success = fac.WriteEntireTextFile("qa_data/tokens/zoom.json",json.Emit(),"utf-8",0) %> </body> </html> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.