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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) HttpPostJson2 ExampleDemonstrates use of the HttpPostJson2 method.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code ' See PostJson2Async Example for the async equivalent of this example. set http = CreateObject("Chilkat_9_5_0.Http") ' Sends a POST equivalent to the following CURL command: ' curl -X POST https://sandbox.plaid.com/institutions/get \ ' -H 'content-type: application/json' \ ' -d '{ ' "client_id": String, ' "secret":String, ' "count": Number, ' "offset": Number ' }' ' Suppress some default headers that would automatically added.. http.AcceptCharset = "" http.UserAgent = "" http.AcceptLanguage = "" http.AllowGzip = 0 jsonBody = "{""client_id"": ""PLAID_CLIENT_ID"", ""secret"":""PLAID_SECRET"", ""count"": 10, ""offset"": 0}" ' resp is a Chilkat_9_5_0.HttpResponse Set resp = http.PostJson2("https://sandbox.plaid.com/institutions/get","application/json",jsonBody) If (http.LastMethodSuccess = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If statusCode = resp.StatusCode outFile.WriteLine("Response status code = " & statusCode) ' Examine the JSON response.. set json = CreateObject("Chilkat_9_5_0.JsonObject") success = json.Load(resp.BodyStr) json.EmitCompact = 0 outFile.WriteLine("JSON Response Body:") outFile.WriteLine(json.Emit()) outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.