Créer / simuler un(des) cookie(s) (noms,valeurs,etc) pour une url a ouvrir avec ie via wininet.dll


Commenter

Contenu du snippet

Crée un cookie de la valeur de votre choix, à condition de specifier le nom du cookie, l'url où l'utiliser,et une date d'expiration.
Tout ca via wininet.dll ^^x

Source / Exemple : 


'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 .

Conclusion :


si problème il y a, je pense que vous ne vous generez pas pour me le faire savoir via les commentaires :)

A voir également

Du même auteur (hvb)