VBScript

RenderGet Example

Demonstrates the RenderGet method. VBScript

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

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat.Http")

' Perhaps add a custom header or two..
http.SetRequestHeader "x-exz-date","20201012T235046Z"
http.SetRequestHeader "x-exz-id","1234"

' See the exact HTTP request that would be sent via the HttpNoBody method using the GET HTTP verb.
' No request is actually sent to the server.
url = "https://www.example.com/someting?param1=123&param2=abc"
getRequest = http.RenderGet(url)
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(getRequest)

' The rendered GET request is shown below.
' (The Accept and Accept-Encoding headers are automatically added by default.)

' 	GET /someting?param1=123&param2=abc HTTP/1.1
' 	Host: www.example.com
' 	Accept: */*
' 	Accept-Encoding: gzip
' 	x-exz-date: 20201012T235046Z
' 	x-exz-id: 1234

outFile.Close