HTTP HEAD Request

Simple HTTP HEAD request to download only the HTTP header.

Download Chilkat .NET for 2.0 / 3.5 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 HEAD request and get the response.
Dim response As Chilkat.HttpResponse
response = http.GetHead("http://www.chilkatsoft.com/")

If (response Is Nothing ) Then
    MsgBox(http.LastErrorText)
Else

    '  Show the HTTP response code and header received.
    TextBox1.Text = TextBox1.Text & "HTTP response code: " & vbCrLf
    TextBox1.Text = TextBox1.Text & response.StatusCode & vbCrLf

    TextBox1.Text = TextBox1.Text & "---- FULL HEADER ----" & vbCrLf
    TextBox1.Text = TextBox1.Text & response.Header & vbCrLf
    TextBox1.Text = TextBox1.Text & "---------------------" & vbCrLf

    '  How big will the full response be?  This is a good way to
    '  check the size of a download (if the URL is a .zip)
    TextBox1.Text = TextBox1.Text & "Size of resource = " _
         & response.ContentLength & vbCrLf

End If