| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following code demonstates how to create internet cookies. Please read the "Notes" for an explaination of the current limitations of creating cookies using the wininet dll. \par \par Option Explicit \par Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String) As Boolean \par Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String, lpdwSize As Long) As Boolean \par \par 'Purpose : Creates an internet cookie \par 'Inputs : sURL The URL to create the cookie for. \par ' sCookieName The name of the cookie. \par ' sCookieData The data to store in the cookie \par 'Outputs : Returns True if succeeded in creating the cookie. \par 'Notes : Cookies created by this function without an expiration date are stored in memory and are \par ' available only in the same process that created them. Cookies that include an expiration \par ' date are stored in the windows\\cookies directory. \par ' Creating a new cookie might cause a dialog box to appear on the screen if the appropriate \par ' registry value, AllowCookies, is set. \par \par \par Function InternetCookieCreate(sURL As String, sCookieName As String, sCookieData As String) As Boolean \par On Error GoTo ErrFailed \par InternetCookieCreate = InternetSetCookie(sURL, sCookieName, sCookieData) \par Exit Function \par \par ErrFailed: \par Debug.Print Err.Description \par InternetCookieCreate = False \par End Function \par \par \par Function InternetCookieGet(sURL As String, sCookieName As String, sCookieData As String) As String \par Const clMaxCookieLen = 5012 'Arbitary limit \par Dim sResult As String * clMaxCookieLen \par Dim bRet As Boolean, lLen As Long \par \par On Error GoTo ErrFailed \par lLen = clMaxCookieLen \par bRet = InternetGetCookie(sURL, sCookieName, sResult, lLen) \par If bRet Then \par InternetCookieGet = Left$(sResult, lLen) \par End If \par Exit Function \par \par ErrFailed: \par Debug.Print Err.Description \par InternetCookieGet = "" \par End Function \par \par 'Demonstration routine \par Sub Test() \par InternetCookieCreate "http://www.vbusers.com", "Andrew", "Test Cookie" \par Debug.Print InternetCookieGet("http://www.vbusers.com", "", "Test Cookie") \par End Sub \par } |
Creating an internet cookie |
India web developer web development India | India web development company India ecommerce web developer