VBScript

HTTP GET with utf-8 URL Encoded Query Params

See more HTTP Examples

Demonstrates how to build URLs where query param values can be either URL encoded from the utf-8 representation, or from another charset such as windows-1252.

Note: This example uses the new DecodeAndAppend method added in Chilkat v9.5.0.87.

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)

success = 0

' We have the string "MÆRSK".

' This is the URL encoding of the windows-1252 representation.
nameWindows1252UrlEncoded = "M%C6RSK"

set sb1 = CreateObject("Chilkat.StringBuilder")
success = sb1.DecodeAndAppend(nameWindows1252UrlEncoded,"url","windows-1252")

set http = CreateObject("Chilkat.Http")

' Here's how to send an HTTP GET where the param is the utf-8 representation that is URL encoded.
' For example:  https://www.chilkatsoft.com/something?name=M%C3%A6RSK

set sbUrl = CreateObject("Chilkat.StringBuilder")

success = sbUrl.Append("https://www.chilkatsoft.com/something?name=")
success = sbUrl.Append(sb1.GetEncoded("url","utf-8"))
outFile.WriteLine(sbUrl.GetAsString())

responseBody = http.QuickGetStr(sbUrl.GetAsString())

' Here's how to send an HTTP GET where the param is the windows-1252 representation that is URL encoded.
' For example:  https://www.chilkatsoft.com/something?name=M%E6RSK

sbUrl.Clear 
success = sbUrl.Append("https://www.chilkatsoft.com/something?name=")
success = sbUrl.Append(sb1.GetEncoded("url","windows-1252"))
outFile.WriteLine(sbUrl.GetAsString())

responseBody = http.QuickGetStr(sbUrl.GetAsString())

outFile.Close