Gestion de Cookies via VB6

Herve_be 338 Messages postés mercredi 4 août 2010Date d'inscription 21 septembre 2018 Dernière intervention - 13 sept. 2018 à 11:06
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 cookie
Private Declare Function InternetSetCookie Lib "wininet.dll" _
Alias "InternetSetCookieA" _
(ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, _
ByVal lpszCookieData As String) As Boolean
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
Private 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 Sub
Private 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 Sub
Ma 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.
Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.