![]() |
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) Moody's REST API - Get OAuth2 TokenSee more Moody's ExamplesDemonstrates how to get an OAuth2 access token for the Moody's REST API.Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Long success = 0 ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New ChilkatHttp Dim req As New ChilkatHttpRequest req.AddParam "grant_type","password" req.AddParam "scope","api/ratings api/addin rest" req.AddParam "username","my_username" req.AddParam "password","my_password" ' I have no idea of where to get the client_id or client_secret. ' When you create a Moody's App, it only provides an "API Key". req.AddParam "client_id","my_client_id" req.AddParam "client_secret","my_client_secret" req.HttpVerb = "POST" req.ContentType = "application/x-www-form-urlencoded" Dim resp As New ChilkatHttpResponse success = http.HttpReq("https://api.moodys.com/OAuth/Token",req,resp) If (success = 0) Then Debug.Print http.LastErrorText Exit Sub End If Debug.Print "status code = " & resp.StatusCode Dim responseBody As String responseBody = resp.BodyStr Debug.Print responseBody ' Save the JSON to a file for future requests. If (resp.StatusCode = 200) Then Dim fac As New CkFileAccess success = fac.WriteEntireTextFile("qa_data/tokens/moodys.json",resp.BodyStr,"utf-8",0) End If |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.