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 .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim http As New Chilkat.Http()

Dim success As Boolean

' Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) 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
    TextBox1.Text = TextBox1.Text & "status = 200, OK!" & vbCrLf
    TextBox1.Refresh()
Else
    TextBox1.Text = TextBox1.Text & "HTTP Response status = " _
         & status & vbCrLf
    TextBox1.Refresh()

    ' Display the complete response header.
    TextBox1.Text = TextBox1.Text & http.LastResponseHeader & vbCrLf
    TextBox1.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
    TextBox1.Text = TextBox1.Text & "status = 200, OK!" & vbCrLf
    TextBox1.Refresh()
Else
    TextBox1.Text = TextBox1.Text & "HTTP Response status = " _
         & status & vbCrLf
    TextBox1.Refresh()

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