Visual Basic 6.0

HTTP Response Inspection

See more HTTP Examples

Demonstrates how to inspect the HTTP response, including the status code, status text, and response headers, for Chilkat methods that don't use an HttpResponse object. Visual Basic 6.0

Dim http As New ChilkatHttp

' Returns the contents of the response body.
Dim jsonText As String
jsonText = http.QuickGetStr("https://chilkatsoft.com/helloWorld.json")

' Examine the response status code.
Debug.Print "response status code: " & http.LastStatus

' Examine the response status text
Debug.Print "response status text: " & http.LastStatusText

' Examine the full response header.
Debug.Print "response header:"
Debug.Print http.LastResponseHeader
Debug.Print "----"

' Examine the response content-type
Debug.Print "LastContentType = " & http.LastContentType

' Examine the response last-mod date
Debug.Print "LastModDate = " & http.LastModDate

' Load the response header into a Chilkat MIME object to access its fields individually.
Dim mime As New ChilkatMime
success = mime.LoadMime(http.LastResponseHeader)

Dim numHeaders As Long
numHeaders = mime.NumHeaderFields
Dim i As Long
i = 0
Debug.Print "---- MIME Headers ----"
Do While i < numHeaders
    Debug.Print "name:  " & mime.GetHeaderFieldName(i)
    Debug.Print "value: " & mime.GetHeaderFieldValue(i)
    i = i + 1
Loop
Debug.Print "----"

' Get a header field value by name:
Debug.Print "ETag: " & mime.GetHeaderField("ETag")

' Output:

' response status code: 200
' response status text: OK
' response header:
' Content-Type: application/json
' Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
' Accept-Ranges: bytes
' ETag: "34c27f8e5ad3d91:0"
' Server: Microsoft-IIS/10.0
' X-Powered-By: ASP.NET
' Date: Sat, 30 Aug 2025 14:38:13 GMT
' Content-Length: 22
' ----
' LastContentType = application/json
' LastModDate = 2023-08-20
' ---- MIME Headers ----
' name:  Content-Type
' value: application/json
' name:  Last-Modified
' value: Sun, 20 Aug 2023 11:36:27 GMT
' name:  Accept-Ranges
' value: bytes
' name:  ETag
' value: "34c27f8e5ad3d91:0"
' name:  Server
' value: Microsoft-IIS/10.0
' name:  X-Powered-By
' value: ASP.NET
' name:  Date
' value: Sat, 30 Aug 2025 14:38:13 GMT
' name:  Content-Length
' value: 22
' ----
' ETag: "34c27f8e5ad3d91:0"