(Visual Basic) 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.

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
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    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 = "/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 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.
Text1.Text = Text1.Text & "--- LastHeader ---" & vbCrLf
Text1.Text = Text1.Text & http.LastHeader & vbCrLf