(VBScript) Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

set http = CreateObject("Chilkat.Http")

http.SetRequestHeader "X-CSRF-Token","Fetch"

b = http.HasRequestHeader("X-CSRF-Token")
If (b = 1) Then
    outFile.WriteLine("X-CSRF-Token: Yes")
Else
    outFile.WriteLine("X-CSRF-Token: No")
End If

b = http.HasRequestHeader("X-Something")
If (b = 1) Then
    outFile.WriteLine("X-Something: Yes")
Else
    outFile.WriteLine("X-Something: No")
End If

' The Accept and Accept-Encoding headers are default headers automatically added,
' unless the application chooses to remove by calling RemoveRequestHeader for each.
b = http.HasRequestHeader("Accept")
If (b = 1) Then
    outFile.WriteLine("Accept: Yes")
Else
    outFile.WriteLine("Accept: No")
End If

' Output:

' X-CSRF-Token: Yes
' X-Something: No
' Accept: Yes

outFile.Close