(Excel) Demonstrates how to Get Cookies Sent by the HTTP Server

This example demonstrates how to get the cookies that have been received from the HTTP server.

Download Excel Class Modules Chilkat Excel Class Modules

' This example assumes the Chilkat HTTP API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' When the HTTP object's SaveCookies property is turned on, the cookies received from the server
' are persited to the CookieDir, which could be a directory where cookie XML files are persisted,
' or the keyword "memory" to keep an in-memory store.

http.SaveCookies = True
http.CookieDir = "memory"

' Do a few GET's 

html = http.QuickGetStr("https://www.google.com/")
html = http.QuickGetStr("https://www.amazon.com/")

' Examine the cookies received from each domain.

googleCookies = http.GetCookieXml("www.google.com")
Debug.Print googleCookies

' Sample output:

' <?xml version="1.0" encoding="utf-8" ?>
' <cookies>
'     <cookie key=".google.com,/,NID" v="0" expire="Mon, 25-Sep-2017 04:26:57 GMT">
'         <NID>99=AjPVGwqGMP04vlJfmb2r0Zuorv43CnFNWFrIDz8IUrcF5ozTXa7DWBRUR1-_WqcXXQymVNLe9Umr84N87ynLAYzlRZ74ww9pU8f1ZK-pHL88RPcobnlsxE7Xi-XdXR1a6dCQ-5hOoHw7juRB</NID>
'     </cookie>
' </cookies>
' 

amazonCookies = http.GetCookieXml("www.amazon.com")
Debug.Print amazonCookies

' Sample output:

' <?xml version="1.0" encoding="utf-8" ?>
' <cookies>
'     <cookie key=".amazon.com,/,skin" v="0">
'         <skin>noskin</skin>
'     </cookie>
'     <cookie key=".amazon.com,/,session-id" v="0" expire="Tue, 01-Jan-2036 08:00:01 GMT">
'         <session-id>159-1495930-0239038</session-id>
'     </cookie>
'     <cookie key=".amazon.com,/,session-id-time" v="0" expire="Tue, 01-Jan-2036 08:00:01 GMT">
'         <session-id-time>2082787201l</session-id-time>
'     </cookie>
' </cookies>