VBScript

Replace or Remove Default HTTP Headers

See more HTTP Examples

Shows how to replace or remove default HTTP headers.

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")

' The following request will be sent.
' The Accept and Accept-Encoding headers are default headers added by Chilkat.

' GET /helloWorld.txt HTTP/1.1
' Host: chilkatsoft.com
' Accept: */*
' Accept-Encoding: gzip

responseBody = http.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
' Examine the request header we just sent..
outFile.WriteLine(http.LastHeader)
outFile.WriteLine("----")

' Remove the default headers:
http.RemoveRequestHeader "Accept"
http.RemoveRequestHeader "Accept-Encoding"

' Send a request with the following header:

' GET /helloWorld.txt HTTP/1.1
' Host: chilkatsoft.com

responseBody = http.QuickGetStr("https://chilkatsoft.com/helloWorld.txt")
outFile.WriteLine(http.LastHeader)

outFile.Close