HTTP HEAD Request

Simple HTTP HEAD request to download only the HTTP header.

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 HEAD request and get the response.
Dim response As ChilkatHttpResponse
Set response = http.GetHead("http://www.chilkatsoft.com/")

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

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

    Text1.Text = Text1.Text & "---- FULL HEADER ----" & vbCrLf
    Text1.Text = Text1.Text & response.Header & vbCrLf
    Text1.Text = Text1.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)
    Text1.Text = Text1.Text & "Size of resource = " _
         & response.ContentLength & vbCrLf

End If