(VBScript) Transition from Http.LastJsonData to Http.GetLastJsonData

See more HTTP Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' ...
' ...

' ------------------------------------------------------------------------
' The LastJsonData method is deprecated:

' json1 is a Chilkat.JsonObject
Set json1 = http.LastJsonData()
outFile.WriteLine(json1.Emit())

' ------------------------------------------------------------------------
' Do the equivalent using GetLastJsonData.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json2 = CreateObject("Chilkat.JsonObject")
http.GetLastJsonData json2
outFile.WriteLine(json2.Emit())

outFile.Close