Visual Basic 6.0

Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method. Visual Basic 6.0

Dim http As New ChilkatHttp

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

Dim b As Long
b = http.HasRequestHeader("X-CSRF-Token")
If (b = 1) Then
    Debug.Print "X-CSRF-Token: Yes"
Else
    Debug.Print "X-CSRF-Token: No"
End If

b = http.HasRequestHeader("X-Something")
If (b = 1) Then
    Debug.Print "X-Something: Yes"
Else
    Debug.Print "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
    Debug.Print "Accept: Yes"
Else
    Debug.Print "Accept: No"
End If

' Output:

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