HTTP Session with Cookies

How to keep a session with cookies. Demonstrates how to login to WordPress.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim req As New Chilkat.HttpRequest()
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


'  This example will demonstrate maintaining a session with
'  cookies by doing a simple login to a WordPress blog.
'  Indicate that cookies are to be saved and re-sent.
'  Instead of using a cookie file, you may use the string "memory"
'  to save cookies to memory.
http.CookieDir = "memory"
http.SendCookies = true
http.SaveCookies = true

'  Let's first hit the chilkat.wordpress.com login page to make sure
'  we have any initial cookies...
Dim html As String
html = http.QuickGetStr("http://chilkat.wordpress.com/wp-login.php")
If (html Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    TextBox1.Refresh()
    Exit Sub
End If


'  Build an HTTP POST request to login
req.UsePost()
req.Path = "/wp-login.php"
req.AddParam("log","chilkat")
req.AddParam("pwd","myPassword")
req.AddParam("rememberme","forever")
req.AddParam("wp-submit","Login")
req.AddParam("redirect_to","/wp-admin/")

req.AddHeader("Referer","http://chilkat.wordpress.com/wp-login.php")

'  Send the HTTP POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTP response is received.
Dim domain As String
Dim port As Long
Dim ssl As Boolean
domain = "chilkat.wordpress.com"
port = 80
ssl = false
Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    TextBox1.Refresh()
    Exit Sub
End If


'  Is this a 302 redirect?
If (resp.StatusCode = 302) Then

    '  Get the redirect URL:
    Dim redirectUrl As String
    redirectUrl = resp.GetHeaderField("Location")

    html = http.QuickGetStr(redirectUrl)
    If (html Is Nothing ) Then
        TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
        TextBox1.Refresh()
    Else
        TextBox1.Text = TextBox1.Text & html & vbCrLf
        TextBox1.Refresh()
    End If


Else
    TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf
    TextBox1.Refresh()
End If