Script d'affichage des cookies sous ie

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 053 fois - Téléchargée 19 fois

Commenter

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

Script d'affichage des cookies sous ie
Affichage json - Conseils pratiques -Javascript
Affichage tableau php - Conseils pratiques -PHP
Grille affichage ✓ - Forum C / C++ / C++.NET
Php script ✓ - Forum PHP
Script photoshop - Forum Graphisme/design

Ajouter un commentaire Commentaires

Pergos Messages postés 5 Date d'inscription jeudi 21 décembre 2000 Statut Membre Dernière intervention 8 février 2011
8 juil. 2010 à 12:15

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 )

cs_hackoo Messages postés 92 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 29 juillet 2013
2 juil. 2010 à 18:23

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 "</SCRIPT>"
ts.WriteLine ""
ts.WriteLine "</HTML>"
ts.close
End Sub
'--------------------------------------------------------------------

Pergos Messages postés 5 Date d'inscription jeudi 21 décembre 2000 Statut Membre Dernière intervention 8 février 2011
1 juil. 2010 à 09:15

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é...)

evilcoder Messages postés 25 Date d'inscription vendredi 28 mai 2010 Statut Membre Dernière intervention 29 décembre 2010
28 juin 2010 à 22:40

joli comme code , merci ;)

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.

Script d'affichage des cookies sous ie

Contenu du snippet

Source / Exemple :

A voir également

Vous n'êtes pas encore membre ?

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

Du même auteur (djebbipgm)

Les différents types de raccourcis en vbs

Liste des programmes installes

Script de backup des dossiers

Compression d'un dossier avec winzip

Ajouter des tableaux dans word

Source / Exemple :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (djebbipgm)

Les différents types de raccourcis en vbs

Liste des programmes installes

Script de backup des dossiers

Compression d'un dossier avec winzip

Ajouter des tableaux dans word

Vous n'êtes pas encore membre ?

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