(Visual Basic 6.0) Examine HTTP Response Status Code and Text

See more REST Examples

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim rest As New ChilkatRest

' We're going to check https://authenticationtest.com/HTTPAuth/
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
Dim success As Long
success = rest.Connect("authenticationtest.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' Send a GET request
Dim responseText As String
responseText = rest.FullRequestNoBody("GET","/HTTPAuth/")
If (rest.LastMethodSuccess <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' The start line of an HTTP response, called the status line, contains the following information:
' 
'     The protocol version, usually HTTP/1.1.
'     A status code, indicating success or failure of the request. Common status codes are 200, 404, or 302
'     A status text. A brief, purely informational, textual description of the status code to help a human understand the HTTP message.
' 
' A typical status line looks like: HTTP/1.1 404 Not Found.

' The ResponseStatusCode property contains the integer response code:
Debug.Print "Response status code = " & rest.ResponseStatusCode

' The ResponseStatusText property contains the text (if any) that follows the status code on the status line.
Debug.Print "Response status text = " & rest.ResponseStatusText

' In this case, the sample output is:
' 
' Response status code = 401
' Response status text = Unauthorized