(VBScript) Persist Cookies to XML Files and Auto Re-Send

Demonstrates how to persist incoming cookies to XML files and automatically re-send in subsesquent HTTP requests.

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)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' To save cookies to XML files (per domain) in a specific
' directory, set the CookieDir property (the directory must
' already exist and be writeable by the caller).  Also,
' set the SaveCookies property:
http.CookieDir = "/cookieDir"
http.SaveCookies = 1

' Any methods that do a GET, POST, etc. will save cookies
' to the CookieDir:

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

' After running this code, a "paypal_com.xml" file should appear
' in /cookieDir.

' It's content will look something like this:

' <cookies>
'     <cookie key=".paypal.com,/" v="0" secure="yes">
'         <navcmd>_home-general</navcmd>
'         <HttpOnly />
'         <cwrClyrK4LoCV1fydGbAxiNL6iG>9cz...</cwrClyrK4LoCV1fydGbAxiNL6iG>
'     </cookie>
' </cookies>

' To cause cached cookies to be sent with 
' subsequent HTTP requests, set the SendCookies
' property = 1.
http.SendCookies = 1

' If another HTTP request is sent, the cookies should
' be added:
html = http.QuickGetStr("https://www.paypal.com/")

' Check the LastHeader property to see the MIME header
' of the last HTTP request sent.
' The "Cookie" header field should be present.
outFile.WriteLine("--- LastHeader ---")
outFile.WriteLine(http.LastHeader)

outFile.Close