VBScript

Add Additional Headers to HTTP Requests

See more HTTP Examples

Shows how to add a additional HTTP headers to HTTP requests.

Also see: Chilkat Http Default and Auto-Filled Headers

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat.Http")

' Add a few request headers to be sent with all requests.
http.SetRequestHeader "X-CSRF-Token","Fetch"
http.SetRequestHeader "X-Example","123ABC"

' The following request will be sent:

' GET /helloWorld.txt HTTP/1.1
' Host: chilkatsoft.com
' Accept: */*
' Accept-Encoding: gzip
' X-CSRF-Token: Fetch
' X-Example: 123ABC

' Send an HTTP GET request and return the response body.
responseBody = http.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
outFile.WriteLine(responseBody)

outFile.Close