(Excel) HTTPS GET URL with URL Encoded Query Params

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

Download Excel Class Modules Chilkat Excel Class Modules

' 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.
Dim sbUrl As Chilkat.StringBuilder
Set sbUrl = Chilkat.NewStringBuilder
Dim success As Boolean
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=")

Dim sbValue As Chilkat.StringBuilder
Set sbValue = Chilkat.NewStringBuilder
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
Debug.Print 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)
Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

responseBody = http.QuickGetStr(sbUrl.GetAsString())
If (http.LastMethodSuccess = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response Body:"
Debug.Print responseBody