HTTP Session with Cookies

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

Download Chilkat HTTP ActiveX

LOCAL loReq
LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml
LOCAL lcDomain
LOCAL lnPort
LOCAL lnSsl
LOCAL loResp
LOCAL lcRedirectUrl

loReq = CreateObject('Chilkat.HttpRequest')
loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  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.
loHttp.CookieDir = "memory"
loHttp.SendCookies = 1
loHttp.SaveCookies = 1

*  Let's first hit the chilkat.wordpress.com login page to make sure
*  we have any initial cookies...

lcHtml = loHttp.QuickGetStr("http://chilkat.wordpress.com/wp-login.php")
IF (lcHtml = NULL ) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

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

loReq.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.

lcDomain = "chilkat.wordpress.com"
lnPort = 80
lnSsl = 0

loResp = loHttp.SynchronousRequest(lcDomain,lnPort,lnSsl,loReq)
IF (loResp = NULL ) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  Is this a 302 redirect?
IF (loResp.StatusCode = 302) THEN

    *  Get the redirect URL:

    lcRedirectUrl = loResp.GetHeaderField("Location")

    lcHtml = loHttp.QuickGetStr(lcRedirectUrl)
    IF (lcHtml = NULL ) THEN
        ? loHttp.LastErrorText
    ELSE
        ? lcHtml
    ENDIF

ELSE
    ? loResp.BodyStr
ENDIF