Script d'affichage des cookies sous ie

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 566 fois - Téléchargée 17 fois

Contenu du snippet

ce utiliser Script pour affichage les cookies sous IE très simple et très utile. le scripte est très simple pour utiliser.

Source / Exemple :


Dim shell, fso
Set shell = WScript.CreateObject("WScript.Shell")
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
DestHTML=shell.ExpandEnvironmentStrings("%windir%") & "\web\cookie.html"
CreateHTML DestHTML 
key="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Voir les cookies\" 
shell.RegWrite key, DestHTML ,"REG_SZ" 
prompt="L'affichage des cookies est installé" & VBCRLF 
prompt=prompt & "(Il faut redémarrer Internet Explorer)"
MsgBox prompt,vbInformation ,"ViewCookies pour Internet Explorer (JCB © 2002)"
Wscript.quit

'--------------------------------------------------------------------
Sub CreateHTML(filename)
dim ts
set ts=fso.CreateTextFile(filename,true)
ts.writeline "<HTML>"
ts.WriteLine "<BODY>"
ts.WriteLine "<CENTER><H3>Ce document ne doit pas être ouvert directement!</H3>"
ts.WriteLine "Utiliser le menu contextuel <b>""Enregistrer la cible sous...""</b></CENTER>"
ts.WriteLine "<SCRIPT language=""javascript"" defer=true>"
ts.WriteLine "<!--"
ts.WriteLine "// Conception : Djebbi pgm 2010 "
ts.WriteLine "// VBs"
ts.WriteLine "// http://www.vbfrance.net"
ts.WriteLine "//"
ts.WriteLine "var win = external.menuArguments;"
ts.WriteLine "if (win!=null){"
ts.WriteLine "var doc = win.document;"
ts.WriteLine "var mywin = window.open(""about:blank"", ""cookies"" , ""toolbar=no,location=no,menubar=no,status=yes,scrollbars=yes,resizable=yes,,width=600,height=350'"");"
ts.WriteLine "var myDoc = mywin.document;"
ts.WriteLine "myDoc.open(""text/html"");"
ts.WriteLine "mywin.doc = doc;"
ts.WriteLine "mywin = null;"
ts.WriteLine "myDoc.write(""<HTML>\n"");"
ts.WriteLine "myDoc.write(""<STYLE>\n"");"
ts.WriteLine "myDoc.write(""body {font-family: Verdana, Arial, Helvetica;font-size: 8 pt \n"");"
ts.WriteLine "myDoc.write(""h1, h2, h3, h4, h5, h6 { font-family: Verdana }\n"");"
ts.WriteLine "myDoc.write(""table {table-border-color-light: rgb(102,204,204);table-border-color-dark:  rgb(0,102,102); \n"");"
ts.WriteLine "myDoc.write(""font-size: 8 pt;font-family: Verdana }\n"");"
ts.WriteLine "myDoc.write(""</STYLE>\n"");"
ts.WriteLine "myDoc.write(""<BODY>\n"");"
ts.WriteLine "for (szProp in doc) {"
ts.WriteLine "	if (szProp==""cookie"") {"
ts.WriteLine "		myDoc.write(""<h4>Cookies générés par</h4>\n"");"
ts.WriteLine "		myDoc.write(""<h3>""+ win.location.href+"" :</h3>\n"");"
ts.WriteLine "		var oCookies = doc[szProp];"
ts.WriteLine "		debut=0;"
ts.WriteLine "		fin=oCookies.length;"
ts.WriteLine "		allCook="""";"
ts.WriteLine "		if (fin>0) {"
ts.WriteLine "			allCook0=""<table border=\""1\""><TR><TD bgcolor=\""#C0C0C0\""><b>Nom</b></TD><TD bgcolor=\""#C0C0C0\""><b>Valeur</b></TD></TR>\n"";"
ts.WriteLine "			allCook2=""</table>\n"";"
ts.WriteLine "			courant="""";"
ts.WriteLine "			while (debut<fin) {"
ts.WriteLine "				pv=oCookies.indexOf("";"",debut);"
ts.WriteLine "				if (pv<debut) {pv=fin;}"
ts.WriteLine "				courant=unescape(oCookies.substring(debut,pv));"
ts.WriteLine "				pe=courant.indexOf(""="",0);"
ts.WriteLine "				nom=courant.substring(0,pe);"
ts.WriteLine "				valeur=courant.substring(pe+1);"
ts.WriteLine "				allCook=allCook+""<TR><TD>""+nom+""</TD><TD>""+valeur+""</TD></TR>\n"";"
ts.WriteLine "			    debut=pv+1;"
ts.WriteLine "			   }"
ts.WriteLine "			}"
ts.WriteLine "		try {"
ts.WriteLine "			if (allCook.length>0) {allCook=allCook0+allCook+allCook2;}"
ts.WriteLine "			else {allCook=""aucun cookie"";}"
ts.WriteLine "			}"
ts.WriteLine "		catch(e) {"
ts.WriteLine "			allCook=""aucun cookie"";"
ts.WriteLine "			}"
ts.WriteLine "		myDoc.write(allCook);"
ts.WriteLine "		}" 
ts.WriteLine "	}"
ts.WriteLine "myDoc.write(""</BODY>\n"");"
ts.WriteLine "myDoc.write(""</HTML>\n"");"
ts.WriteLine "myDoc.close();"
ts.WriteLine "myDoc.title = ""Cookies générés par : "" + win.location.href;"
ts.WriteLine "}"
ts.WriteLine "// -->"
ts.WriteLine "</SCRIPT>"
ts.WriteLine "</BODY>"
ts.WriteLine "</HTML>"
ts.close
End Sub
'--------------------------------------------------------------------

A voir également

Ajouter un commentaire

Commentaires

Messages postés
5
Date d'inscription
jeudi 21 décembre 2000
Statut
Membre
Dernière intervention
8 février 2011

Nickel !
Je viens de tester et c'est effectivement très pratique !
Merci !
(en plus, ça m'a permit de voir un peu de code VBScript, ce qui n'est pas plus mal pour ma culture perso ! ;op )
Messages postés
94
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013

10/10 pour "Mr JC BELLAMY" Auteur du code Original.
Pour @"Pergos" Utilisation de ce script:Faites copier coller ce script sur notepad et enregistre sous ViewCookies.vbs Il faut que l'extension soit .vbs et non pas .HTML puis exécute le.
il ajoute une clé dans la base de registre key= "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Voir les cookies"
et un message vous dit l'affichage des cookies est installé et il faut redémarrer internet explorer pour l'ajout la valeur "Voir les Cookies" dans le Menu contextuel.Tu démarre par exemple une page web(http://www.google.fr)avec internet explorer et tu clique par le bouton droit sur cette dernière dans une zone vierge puis cliquer sur Voir les Cookies et le tour est joué.
Voila le code complet et Original sans modification
' ----------------------------------------------------------
' Script d'affichage des cookies sous IE
' JC BELLAMY © 2002
' ----------------------------------------------------------
Dim shell, fso
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
DestHTML=shell.ExpandEnvironmentStrings("%windir%") & "\web\cookie.html"
CreateHTML DestHTML
key="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Voir les cookies"
shell.RegWrite key, DestHTML ,"REG_SZ"
prompt="L'affichage des cookies est installé" & VBCRLF
prompt=prompt & "(Il faut redémarrer Internet Explorer)"
MsgBox prompt,vbInformation ,"ViewCookies pour Internet Explorer (JCB © 2002)"
Wscript.quit

'--------------------------------------------------------------------
Sub CreateHTML(filename)
dim ts
set ts=fso.CreateTextFile(filename,true)
ts.writeline "<HTML>"
ts.WriteLine ""
ts.WriteLine "<CENTER>Ce document ne doit pas être ouvert directement!
"
ts.WriteLine "Utiliser le menu contextuel ""Enregistrer la cible sous..."" </CENTER>"
ts.WriteLine "<SCRIPT language =""javascript"" defer=true>"
ts.WriteLine "<!--"
ts.WriteLine "// Conception : J.C. BELLAMY © 2001 "
ts.WriteLine "// Jean-Claude.Bellamy@wanadoo.fr"
ts.WriteLine "// http://www.bellamyjc.net"
ts.WriteLine "//"
ts.WriteLine "var win = external.menuArguments;"
ts.WriteLine "if (win!=null){"
ts.WriteLine "var doc = win.document;"
ts.WriteLine "var mywin = window.open(""about:blank"", ""cookies"" , ""toolbar=no,location=no,menubar=no,status=yes,scrollbars=yes,resizable=yes,,width=600,height=350'"");"
ts.WriteLine "var myDoc = mywin.document;"
ts.WriteLine "myDoc.open(""text/html"");"
ts.WriteLine "mywin.doc = doc;"
ts.WriteLine "mywin = null;"
ts.WriteLine "myDoc.write(""<HTML>\n"");"
ts.WriteLine "myDoc.write(""<STYLE>\n"");"
ts.WriteLine "myDoc.write(""body {font-family: Verdana, Arial, Helvetica;font-size: 8 pt \n"");"
ts.WriteLine "myDoc.write(""h1, h2, h3, h4, h5, h6 { font-family: Verdana }\n"");"
ts.WriteLine "myDoc.write(""table {table-border-color-light: rgb(102,204,204);table-border-color-dark: rgb(0,102,102); \n"");"
ts.WriteLine "myDoc.write(""font-size: 8 pt;font-family: Verdana }\n"");"
ts.WriteLine "myDoc.write(""</STYLE>\n"");"
ts.WriteLine "myDoc.write(""\n"");"
ts.WriteLine "for (szProp in doc) {"
ts.WriteLine " if (szProp==""cookie"") {"
ts.WriteLine " myDoc.write(""Cookies générés par
\n"");"
ts.WriteLine " myDoc.write(""""+ win.location.href+"" :
\n"");"
ts.WriteLine " var oCookies = doc[szProp];"
ts.WriteLine " debut=0;"
ts.WriteLine " fin=oCookies.length;"
ts.WriteLine " allCook="""";"
ts.WriteLine " if (fin>0) {"
ts.WriteLine " allCook0=""Nom, Valeur, \n\"\";\"
ts.WriteLine " allCook2=""
\n"";"
ts.WriteLine " courant="""";"
ts.WriteLine " while (debut<fin) {"
ts.WriteLine " pv=oCookies.indexOf("";"",debut);"
ts.WriteLine " if (pv<debut) {pv=fin;}"
ts.WriteLine " courant=unescape(oCookies.substring(debut,pv));"
ts.WriteLine " pe=courant.indexOf(""="",0);"
ts.WriteLine " nom=courant.substring(0,pe);"
ts.WriteLine " valeur=courant.substring(pe+1);"
ts.WriteLine " allCook=allCook+""<TR><TD>""+nom+""</TD><TD>""+valeur+""</TD></TR>\n"";"
ts.WriteLine " debut=pv+1;"
ts.WriteLine " }"
ts.WriteLine " }"
ts.WriteLine " try {"
ts.WriteLine " if (allCook.length>0) {allCook=allCook0+allCook+allCook2;}"
ts.WriteLine " else {allCook=""aucun cookie"";}"
ts.WriteLine " }"
ts.WriteLine " catch(e) {"
ts.WriteLine " allCook=""aucun cookie"";"
ts.WriteLine " }"
ts.WriteLine " myDoc.write(allCook);"
ts.WriteLine " }"
ts.WriteLine " }"
ts.WriteLine "myDoc.write(""\n"");"
ts.WriteLine "myDoc.write(""</HTML>\n"");"
ts.WriteLine "myDoc.close();"
ts.WriteLine "myDoc.title = ""Cookies générés par : "" + win.location.href;"
ts.WriteLine "}"
ts.WriteLine "// -->"
ts.WriteLine "</SCRIPT>"
ts.WriteLine ""
ts.WriteLine "</HTML>"
ts.close
End Sub
'--------------------------------------------------------------------
Messages postés
5
Date d'inscription
jeudi 21 décembre 2000
Statut
Membre
Dernière intervention
8 février 2011

Bonjour,

Juste pour info, tu fais comment pour te servir du script ?
J'ai essayé de le coller dans un fichier HTML, mais ça n'a pas l'air d'être ça...
(je ne suis pas vraiment familier avec le VBScript, désolé...)
Messages postés
25
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 décembre 2010

joli comme code , merci ;)

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.