Script d'affichage des cookies sous ie

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

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 (djebbipgm)