(VB.NET) Caching cookies in-memory.

Caching cookies in-memory. To automatically save cookies to an in-memory cache, set the CookieDir property equal to the keyword "memory". Also, set the SaveCookies property = True. If the SendCookies property = True, then any cached cookies are automatically re-sent with subsequent GETs and POSTs.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


'  To save cookies to an in-memory cache, set the
'  CookieDir equal to "memory".  Also,
'  set the SaveCookies property:
http.CookieDir = "memory"
http.SaveCookies = true

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

'  Any methods that do a GET, POST, etc. will save
'  cookies to the CookieDir (which in this case is an
'  in-memory cache.
Dim html As String
html = http.QuickGetStr("https://www.paypal.com/")

'  To fetch the XML cookie(s) for a domain, call GetCookieXml:
Dim xmlStr As String
xmlStr = http.GetCookieXml("paypal.com")

TextBox1.Text = TextBox1.Text & xmlStr & vbCrLf

'  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>



'  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.
TextBox1.Text = TextBox1.Text & "--- LastHeader ---" & vbCrLf
TextBox1.Text = TextBox1.Text & http.LastHeader & vbCrLf