Saving Cookies to XML Files

How to save cookies to XML files.

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

'  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 = "c:/cookieDir"
http.SaveCookies = 1

'  Any methods that do a GET, POST, etc. will save cookies
'  to the CookieDir:
Dim html As String
html = http.QuickGetStr("https://www.paypal.com/")

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

'  It's content will look something like this:

'  
<?xml version="1.0" encoding="utf-8" ?>

<cookies>
    <cookie key=".paypal.com,/" v="0" expire="Wed, 18-Dec-01 11:46:29 GMT">
        <cwrClyrK4LoZV1fydVbAxiNL6iG>%7cfDCeCmXQmy1oTIcoXsWvcd37b6p_6RgwKqM1UvJdeZRgM6VZkNmzrVEer4AeeZiaAfsEI0%7cR9EBOpbfqFYdeURXLUmpIZyfn3wBh0HB8Vn3id9mupwK_1SEYH1yrJXaPe4YRK66GZQb9W%7c</cwrClyrK4LoCV1fydGbAxiNL6iG>
        <KHcl0EuY7AKSMgfvHl7J5E7aPtK>kOs1uUEJtZyt-biv4ElK1TAK6l0VdUJ74c1ybtKppY5M2rgyRGDpACuoTR3pnPHFjudyffXO5Jgv7D2L</KHcl0EuY7AKSMgfvHl7J6E7hPtK>
        <cookie_check>yes</cookie_check>
        <navcmd>_home-general</navcmd>
        <navlns>0.0</navlns>
        <Apache>67.173.123.150.127491301803295492</Apache>
    </cookie>
</cookies>