(VBScript) Add Additional Headers to HTTP Requests
Shows how to add a additional HTTP headers to HTTP requests.
Also see: Chilkat Http Default and Auto-Filled Headers
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
|
