HTTP Session with Cookies

Download Chilkat HTTP ActiveX

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

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