Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 263 fois - Téléchargée 39 fois
'declarez ceci d'abord: Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String) As Boolean 'puis mettez ceci n'importe ou dans votre form Public Function hb_cookie(url As String, cookiename As String, cookievalue As String, cookiedate As String) Dim hb As Boolean hb = InternetSetCookie("" & url & "", _ "" & cookiename & "", "" & cookievalue & "; expires = " & cookiedate & "") If hb = False Then MsgBox "Refusé par l'utilisateur ou le système" End If End Function 'la date doit etre de la forme "Sat, 01-Jan-2003 00:00:00 GMT" 'On appelera la fonction comme tel : hb_cookie("http://batto.free.fr/", "Id", "BATTO", "Sat, 01-Jan-2003 00:00:00 GMT") 'A vous ensuite d'ajouter un shellexecute ou d'utiliser la reference webbrowser pour lancer ie, ou bien de le lancer manuelement .
13 sept. 2018 à 17:47
Y a-t-il moyen de mettre une date de validité illimitée ?
28 janv. 2003 à 00:00
merci pour les notes au passage
9 janv. 2003 à 12:24
le prog, tu le met où ? en ligne ou sur ton pc ?
25 oct. 2002 à 15:42
25 oct. 2002 à 01:56
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.