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

S'inscrire maintenant

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.

Du même auteur (hvb)