(VBScript) HTTPS GET URL with URL Encoded Query Params

Creates a URL with URL encoded query params, and sends an HTTPS GET to the URL.

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)

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

' Create a URL with URL-encoded query params.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbUrl = CreateObject("Chilkat.StringBuilder")
success = sbUrl.Append("https://www.example.com/something?")

' If we know a query param value does not have any special chars requiring URL encoding,
' just add it.  In this case, there is no need to URL encode "123" because "123" url encoded is still just "123".
success = sbUrl.Append("abc=123&xyz=")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbValue = CreateObject("Chilkat.StringBuilder")
success = sbValue.Append("this is a test")

success = sbUrl.Append("msg=")
success = sbUrl.Append(sbValue.GetEncoded("url","utf-8"))

' sbUrl contains:  https://www.example.com/something?abc=123&xyz=msg=this%20is%20a%20test
outFile.WriteLine(sbUrl.GetAsString())

' Send the GET request and get the response body, which is assumed to be text of some sort (HTML, XML, JSON, etc.)
' (Chilkat automatically decompresses gzipped responses)
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")
responseBody = http.QuickGetStr(sbUrl.GetAsString())
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Response Body:")
outFile.WriteLine(responseBody)

outFile.Close