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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set http = CreateObject("Chilkat.Http")

'  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
    WScript.Quit
End If

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

'  Build an HTTP GET request:
set request = CreateObject("Chilkat.HttpRequest")
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.

domain = "www.example-code.com"
port = 80
ssl = 0
Set response = http.SynchronousRequest(domain,port,ssl,request)
If (response Is Nothing ) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

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


outFile.Close