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) HTTP PUT JSONDemonstrates how to send a JSON PUT and get the JSON response body.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set req = CreateObject("Chilkat_9_5_0.HttpRequest") set http = CreateObject("Chilkat_9_5_0.Http") ' Any string unlocks the component for the 1st 30 days. success = http.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If ' The PUT request to be sent will look like this: /*PUT /request HTTP/1.1 Content-Type: application/jsonrequest Cookie: JSESSIONID=1234 Content-Encoding: identity Host: json.penzance.org Accept: application/jsonrequest Accept-Encoding: Content-Length: 72 {"user":"doctoravatar@penzance.com","forecast":7,"t":"vlIj","zip":94089}*/ ' First, remove default header fields that would be automatically ' sent. (These headers are harmless, and shouldn't need to ' be suppressed, but just in case...) http.AcceptCharset = "" http.UserAgent = "" http.AcceptLanguage = "" ' Suppress the Accept-Encoding header by disallowing ' a gzip response: http.AllowGzip = 0 ' If a Cookie needs to be added, it may be added by calling ' AddQuickHeader: success = http.AddQuickHeader("Cookie","JSESSIONID=1234") ' Add the Content-Encoding: identity header. success = http.AddQuickHeader("Content-Encoding","identity") ' Modify the default "Accept" header: http.Accept = "application/jsonrequest" jsonText = "{""user"":""doctoravatar@penzance.com"",""forecast"":7,""t"":""vlIj"",""zip"":94089}" ' To use SSL/TLS, simply use "https://" in the URL. ' IMPORTANT: Make sure to change the URL, JSON text, ' and other data items to your own values. The URL used ' in this example will not actually work. responseBody = http.PutText("http://json.penzance.org/request",jsonText,"utf-8","application/jsonrequest",0,0) If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) Else ' Display the JSON response. outFile.WriteLine(responseBody) End If outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.