![]() |
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
(Xojo Plugin) Twitter - Application Only AuthenticationDemonstrates how to get a Twitter OAuth2 token for application-only authentication. This example is deprecated and no longer valid.
// It requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Note: Define your Twitter apps at https://apps.twitter.com/ // We're going to send an HTTPS POST that looks like this: // POST /oauth2/token HTTP/1.1 // Host: api.twitter.com // User-Agent: My Twitter App v1.0.23 // Authorization: Basic eHZ6MWV2RlM0d0VFUFRHRUZQSEJvZzpMOHFxOVBaeVJn // NmllS0dFS2hab2xHQzB2SldMdzhpRUo4OERSZHlPZw== // Content-Type: application/x-www-form-urlencoded;charset=UTF-8 // Content-Length: 29 // Accept-Encoding: gzip // // grant_type=client_credentials // Update these values with your consumer key and secret (also known as API key and API secret). Dim consumerKey As String consumerKey = "TWITTER_CONSUMER_KEY" Dim consumerSecret As String consumerSecret = "TWITTER_CONSUMER_SECRET" Dim http As New Chilkat.Http http.BasicAuth = True http.Login = consumerKey http.Password = consumerSecret Dim req As New Chilkat.HttpRequest req.AddParam "grant_type","client_credentials" Dim resp As Chilkat.HttpResponse resp = http.PostUrlEncoded("https://api.twitter.com/oauth2/token",req) If (http.LastMethodSuccess <> True) Then System.DebugLog(http.LastErrorText) Return End If System.DebugLog("Response Status Code: " + Str(resp.StatusCode)) If (resp.StatusCode <> 200) Then System.DebugLog("Expected a 200 response status code for success.") System.DebugLog(resp.BodyStr) Return End If // We should get a JSON response like this: // { // "token_type":"bearer", // "access_token":"..." // } Dim json As New Chilkat.JsonObject Dim success As Boolean success = json.Load(resp.BodyStr) System.DebugLog("Access token = " + json.StringOf("access_token")) |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.