evilcoder
Messages postés25Date d'inscriptionvendredi 28 mai 2010StatutMembreDernière intervention29 décembre 2010
-
28 juin 2010 à 22:40
Pergos
Messages postés5Date d'inscriptionjeudi 21 décembre 2000StatutMembreDernière intervention 8 février 2011
-
8 juil. 2010 à 12:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Pergos
Messages postés5Date d'inscriptionjeudi 21 décembre 2000StatutMembreDerniè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és91Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention29 juillet 2013 2 juil. 2010 à 18:23
Pergos
Messages postés5Date d'inscriptionjeudi 21 décembre 2000StatutMembreDerniè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és25Date d'inscriptionvendredi 28 mai 2010StatutMembreDernière intervention29 décembre 2010 28 juin 2010 à 22:40
8 juil. 2010 à 12:15
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 )
2 juil. 2010 à 18:23
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
'--------------------------------------------------------------------
1 juil. 2010 à 09:15
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é...)
28 juin 2010 à 22:40