(Visual Basic 6.0) 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

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

Dim success As Long

' Create a URL with URL-encoded query params.
Dim sbUrl As New ChilkatStringBuilder
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 New ChilkatStringBuilder
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 New ChilkatHttp
Dim responseBody As String
responseBody = http.QuickGetStr(sbUrl.GetAsString())
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

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