Checking the HTTP Response Status Code

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.

Download Chilkat HTTP ActiveX

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