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
- Script d'affichage des cookies sous ie
- PHP : Script d'affichage des variables pour le débuggage - CodeS SourceS - Guide
- PHP : Script d'affichage du nombre de vues corrigé et optimisé - CodeS SourceS - Guide
- Script d'affichage de séance de cinéma ✓ - Forum - PHP
- Problème de cookies avec ie ✓ - Forum - PHP
- Problème d'affichage de Mozilla à IE ✓ - Forum - Javascript / DHTML
Commentaires
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 )
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
'--------------------------------------------------------------------
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é...)
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.