Gestion de Cookies via VB6

Question

Bonjour, 
Je viens de voir qu'il est possible de placer et de lire un cookie via VB6.
Actuellement pour donner accès à un de mes logiciels je mets une clé dans un fichier qui se trouve dans le même répertoire que le logiciel; il arrive régulièrement qu'un utilisateur ne se souvient plus où il a mis le logiciel, donc il le télécharge à nouveau ... ailleurs, le logiciel ne trouve pas sa clé et demande donc un mot de passe, c'est un peu fastidieux.
Si la clé était sous forme de cookie ce problème n'existerait pas.
Voici ce que j'ai trouvé pour mettre et lire un cookiePrivate Declare Function InternetSetCookie Lib "wininet.dll" _       Alias "InternetSetCookieA" _       (ByVal lpszUrlName As String, _       ByVal lpszCookieName As String, _       ByVal lpszCookieData As String) As BooleanPrivate Declare Function InternetGetCookie Lib "wininet.dll" _       Alias "InternetGetCookieA" _       (ByVal lpszUrlName As String, _       ByVal lpszCookieName As String, _       ByVal lpszCookieData As String, _       lpdwSize As Long) As BooleanPrivate Sub Command1_Click()       Dim bRet As Boolean       bRet = InternetSetCookie("http://xxxx/xxxx.htm", _        "Test", "Sent as Test via VB")       If bRet = False Then           MsgBox "Failed"       End If      End SubPrivate Sub Command2_Click()        Dim sCookieVal As String * 256        Dim bRet As Boolean        bRet = InternetGetCookie("http://xxxx/xxxx.htm", _         "Test", sCookieVal, 255)        If bRet = False Then          MsgBox "Failed"        Else          MsgBox sCookieVal        End If      End SubMa question : à quoi sert "http://xxxx/xxxx.htm" ?
Si le cookie est placé par une page Web, je comprends, mais en VB6 ?
Cet URL doit-il être valide ?

Je lis aussi sur le site Microsoft
Cookies created by InternetSetCookie without an expiration date are stored in memory and are available only in the same process that created them. Cookies that include an expiration date are stored in the windows\cookies directory.
Comment spécifie-t-on la date d'expiration ?
Y a-t-il une possibilité de validité illimitée ?

Merci d'avance pour votre aide, autres remarques concernant ce code bienvenues.

Herve_be · Answer

Pas d'avis sur la manière de gérer des cookies via VB6 ?

jordane45 · Answer

Bonjour 
Autant stocker la donnée dans la base de registre...

Herve_be · Answer

Bonjour,
En mettant une date d'expiration le Cookie est conservé, donc ça fonctionne.

Sinon stocker la clé d'accès dans la base de registre me semble aussi une bonne idée, le but étant de stocker cette clé à un endroit "central" et pas dans un fichier comme je le fais actuellement.
Quel seraient les avantages / inconvénients par rapport à un Cookie ?

Herve_be · Answer

Question subsidiaire : comment supprimer un cookie ?

Herve_be · Answer

Autre chose vraiment bizarre :
je crée un cookie avec par exemple la valeur "a"
CookieRetCode = InternetSetCookie("http://www.rudyv.be", "RVRT", "a; expires = Thu, 01-Jan-2099 00:00:00 GMT")
si je lis le cookie j'obtiens bien "RVRT=a"

je veux attribuer une autre valeur "b" donc
CookieRetCode = InternetSetCookie("http://www.rudyv.be", "RVRT", "b; expires = Thu, 01-Jan-2099 00:00:00 GMT")
si je lis le cookie j'obtiens "RVRT=a; RVRT=b" !

Gestion de Cookies via VB6

5 réponses

Votre réponse

Discussions similaires