TODAY'S I.E. HISTORY CLEANER WITH SENDKEYS
cs_clementpat
Messages postés
406
Date d'inscription
lundi 2 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2014
-
20 sept. 2004 à 19:47
cs_Pirandello Messages postés 2 Date d'inscription jeudi 13 octobre 2005 Statut Membre Dernière intervention 26 septembre 2012 - 3 mars 2012 à 23:46
cs_Pirandello Messages postés 2 Date d'inscription jeudi 13 octobre 2005 Statut Membre Dernière intervention 26 septembre 2012 - 3 mars 2012 à 23:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26279-today-s-i-e-history-cleaner-with-sendkeys
https://codes-sources.commentcamarche.net/source/26279-today-s-i-e-history-cleaner-with-sendkeys
3 mars 2012 à 23:46
'Script vbs d'effacement pour IE
Dim WsShell, Param
Set WsShell = CreateObject("Wscript.Shell")
Param = 0
'Effacer l'historique
Param = Param + 1
'Effacer les Cookies
Param = Param + 2
'Effacer les fichiers Internet temporaires
Param = Param + 8
'Effacer les données des formulaires
'Param = Param + 16
'Effacer les mots de passe
'Param = Param + 32
'Effacer l'historique de navigation y compris l'historique des compléments
Param = Param + 193
'Effacer complètement l'historique de navigation
Param = Param + 255
'Effacer le cheminement
'Param = Param + 2048
'Tout effacer y compris les fichiers et les paramètres des compléments
'Param = Param + 4351
'Préserver les favoris
'Param = Param + 8192
'Effacer les fichiers téléchargés (downloaded Files)
Param = Param + 16384
'Tout effacer
'Param = Param + 22783
On Error Resume Next
WsShell.Run "Rundll32.exe InetCpl.cpl,ClearMyTracksByProcess " & Param, 0, TRUE
On Error Goto 0
'Supprimer les objets en mémoire
Set WsShell = Nothing
'Arrêter le script
WScript.Quit
16 mars 2006 à 14:16
20 sept. 2004 à 19:47