Adding Cookies to an HTTP GET Request

Example showing how to add one or more cookies to an HTTP GET request.

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

'  The Cookie header field has this format:
'  Cookie: name1=value1 [; name2=value2] ...

'  Build an HTTP GET request:
Dim request As New ChilkatHttpRequest
request.SetFromUrl "http://www.example-code.com/"
request.UseGet 

'  Add two cookies:
request.AddHeader "Cookie","user=""mary""; city=""Chicago"""

'  Send the HTTP GET.  The cookies are sent as part of the HTTP header.
Dim response As ChilkatHttpResponse
Dim domain As String
domain = "www.example-code.com"
Dim port As Long
port = 80
Dim ssl As Long
ssl = 0
Set response = http.SynchronousRequest(domain,port,ssl,request)
If (response Is Nothing ) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

'  Display the HTML body of the response.
If (response.StatusCode = 200) Then
    Text1.Text = Text1.Text & response.BodyStr & vbCrLf
Else
    Text1.Text = Text1.Text & "HTTP Response Status = " _
         & response.StatusCode & vbCrLf
End If