Checking the HTTP Response Status Code

Download Chilkat HTTP ActiveX

Simple HTTP GET request to download the HTML of a web page. Check the HTTP response status code (i.e. 200, 404, etc) to see if it downloaded successfully.

Dim http As New ChilkatHttp

Dim success As Long

' Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

' Send the HTTP GET and return the content in a string.
Dim html As String
html = http.QuickGetStr("http://www.google.com/")

Dim status As Long
status = http.LastStatus

If (status = 200) Then
    Text1.Text = Text1.Text & "status = 200, OK!" & vbCrLf
    Text1.Refresh
Else
    Text1.Text = Text1.Text & "HTTP Response status = " _
         & status & vbCrLf
    Text1.Refresh

    ' Display the complete response header.
    Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
    Text1.Refresh
End If

' Now try a URL where we know we'll get a 404 response:
html = http.QuickGetStr("http://www.chilkatsoft.com/NothingHere.html")

status = http.LastStatus

If (status = 200) Then
    Text1.Text = Text1.Text & "status = 200, OK!" & vbCrLf
    Text1.Refresh
Else
    Text1.Text = Text1.Text & "HTTP Response status = " _
         & status & vbCrLf
    Text1.Refresh

    ' Display the complete response header.
    Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
    Text1.Refresh
End If