(Excel) Add Custom Header to HTTP GET

Demonstrates how to add a custom HTTP request header to an HTTP GET. This is not a request parameter, but is a header added to the MIME header of the HTTP request.

Download Excel Class Modules Chilkat Excel Class Modules

' All Chilkat classes can be unlocked at once at the beginning of a program
' by calling UnlockBundle.  It requires a Bundle unlock code.
Dim chilkatGlob As Chilkat.CkGlobal
Set chilkatGlob = Chilkat.NewCkGlobal

success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> True) Then
    Debug.Print chilkatGlob.LastErrorText
    Exit Sub
End If

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' Add a custom header.  The MIME field name is "X-CSRF-Token", and the 
' header field value is "Fetch".
http.SetRequestHeader "X-CSRF-Token","Fetch"

' Send the HTTP GET and return the content in a string.

html = http.QuickGetStr("http://www.galapagos.org/")

Debug.Print html