Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Get Ebay OAuth2 Token using Client Credentials Grant FlowSee more eBay ExamplesDemonstrates how to get a Ebay OAuth2 access token using the client credentials grant flow. There are two ways of "minting" an OAuth2 access token.
For more information, see https://developer.ebay.com/api-docs/static/oauth-client-credentials-grant.html
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Implements the following CURL command: ' curl -X POST 'https://api.sandbox.ebay.com/identity/v1/oauth2/token' \ ' -H 'Content-Type: application/x-www-form-urlencoded' \ ' -H 'Authorization: Basic UkVTVFRlc3...wZi1hOGZhLTI4MmY=' \ ' -d 'grant_type=client_credentials&scope=https%3A%2F%2Fapi.ebay.com%2Foauth%2Fapi_scope' ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code Dim req As New Chilkat.HttpRequest req.HttpVerb = "POST" req.Path = "/identity/v1/oauth2/token" req.ContentType = "application/x-www-form-urlencoded" req.AddParam("grant_type","client_credentials") ' The scope query param indicates the access to be provided by the token. ' Multiple scopes can be specified by separating each with a SPACE char. ' See the Ebay OAuth scopes documentation Dim scope As String = "https://api.ebay.com/oauth/api_scope https://api.ebay.com/oauth/api_scope/buy.order.readonly https://api.ebay.com/oauth/api_scope/buy.guest.order https://api.ebay.com/oauth/api_scope/sell.marketing.readonly https://api.ebay.com/oauth/api_scope/sell.marketing https://api.ebay.com/oauth/api_scope/sell.inventory.readonly https://api.ebay.com/oauth/api_scope/sell.inventory https://api.ebay.com/oauth/api_scope/sell.account.readonly https://api.ebay.com/oauth/api_scope/sell.account https://api.ebay.com/oauth/api_scope/sell.fulfillment.readonly https://api.ebay.com/oauth/api_scope/sell.fulfillment https://api.ebay.com/oauth/api_scope/sell.analytics.readonly https://api.ebay.com/oauth/api_scope/sell.marketplace.insights.readonly https://api.ebay.com/oauth/api_scope/commerce.catalog.readonly https://api.ebay.com/oauth/api_scope/buy.shopping.cart https://api.ebay.com/oauth/api_scope/buy.offer.auction" req.AddParam("scope",scope) ' Setting these properties causes the Authorization: Basic UkVTVFRlc3...wZi1hOGZhLTI4MmY= ' header to be added. http.Login = "EBAY_CLIENT_ID" http.Password = "EBAY_CLIENT_SECRET" http.BasicAuth = True Dim resp As Chilkat.HttpResponse = http.PostUrlEncoded("https://api.sandbox.ebay.com/identity/v1/oauth2/token",req) If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim sbResponseBody As New Chilkat.StringBuilder resp.GetBodySb(sbResponseBody) Dim jResp As New Chilkat.JsonObject jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = resp.StatusCode Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(resp.Header) Debug.WriteLine("Failed.") Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "access_token": "v^1.1#i^1#p^1#r^0#I^3#f^0#t^H4s ... wu67e3xAhskz4DAAA", ' "expires_in": 7200, ' "token_type": "Application Access Token" ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim access_token As String = jResp.StringOf("access_token") Dim expires_in As Integer = jResp.IntOf("expires_in") Dim token_type As String = jResp.StringOf("token_type") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.