Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 03:39:45

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

+ de logiciels à télécharger

1 467 633 membres
52 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 669 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VBSCRIPT : SCRIPT ANTICOOKIES

Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 21/09/2002 Date de mise à jour : 21/09/2002 00:47:57 Vu : 5 309

Auteur : Sverdlovsky

Site perso

Ecrire un message privé

Note :

7,00 / 10

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Ce code très simple permet d'effacer rapidement les cookies (Système Windows 9x).
Un fichier log est créé sur le Bureau pour toute vérification ultérieure.
Il est possible de mettre ce VBS dans le démarrage système pour effacer les cookies
à chaque reboot du pc.

Source

On Error Resume Next
MsgBox "Prêt pour effacer les cookies ?"
hdd()
Function hdd()
On Error Resume Next
Dim cookielog,fso, rep, cookie, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set rep = fso.GetFolder("c:\windows\cookies")
Set cookie = rep.Files
For Each file in cookie
Set cookielog = fso.OpenTextFile("c:\windows\bureau\cookielog.log",8,True)
cookielog.WriteLine "COOKIE "&file&" effacé le "&Date&" à "&Time
cookielog.Close
file.Delete
Next
MsgBox "Cookies effacés !!!", vbExclamation
End Function

On Error Resume Next
MsgBox "Prêt pour effacer les cookies ?"
hdd()
Function hdd()
On Error Resume Next
Dim cookielog,fso, rep, cookie, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set rep = fso.GetFolder("c:\windows\cookies")
Set cookie = rep.Files
For Each file in cookie
Set cookielog = fso.OpenTextFile("c:\windows\bureau\cookielog.log",8,True)
cookielog.WriteLine "COOKIE "&file&" effacé le "&Date&" à "&Time
cookielog.Close
file.Delete
Next
MsgBox "Cookies effacés !!!", vbExclamation
End Function

Conclusion

Vos idées et suggestions sont les bienvenues.
Je recherche des sources VBS en sockets sur les objets Winsock, Network...
Faut-il un OCX spécifique pour l'exécution de VBS pour les sockets ?
Je n'ai jamais réussi à compiler un code objet Winsock.

Sources du même auteur

WINSOCK AVEC VBSCRIPT (CLIENT IRC)

Toutes les sources de Sverdlovsky

Sources de la même categorie

DÉPLACER ET PARAMÉTRER LA BARRE DES TACHES / LE MENU DÉMARRE... par MS1969

MERLIN LE MAGICIEN AVEC BEAUCOUP DE COMMANDES ET DE FONCTION... par hackoo

ADRESSE IP LOCALE ET ADRESSE IP PUBLIQUE par hackoo

CRÉATION D'UNE LISTE DE TOUTES LES APPLICATIONS QUI DÉMARRE ... par hackoo

RECHERCHER DANS VOTRE BASE DE REGISTRE par hackoo

Toutes les sources de la catégorie VBScript

Commentaires et avis

Commentaire de shaoni le 23/09/2002 10:20:16

celui qui execute ce script a interet a avoir win 95/98 sinon ben marche pas !
essaye d'employe la registry pour le chemin des cookies la au moin tu est sur de les trouvé!

Commentaire de hgrandsart le 28/03/2003 02:05:51

Win 95 et 98 only
Il n'y a pas que les cookies dans la vie (même au chocolat!! je rigole), il y a aussi INDEX.DAT, le Rep temporary Internet Files, le Temp,Les Fichiers TMP et ,Et je dois en oublier mais voila. La ruse c'est que index.dat tu peux pas l'effacer Il faut utiliser soit une commande manuelle soit un BAT. Eh oui le DOS n'est pas encore mort
Je ne me rappelle plus l'adrese mais tu trouves le BAT sur GOOGLE il s'appelle DELINDEX.BAT Auteur Renaissance Man/Gérard Malone
Lui il efface tout ca et tu peux le personaliser. Il fonctionne super bien
bon voila bonne prog. PS si tu as une question n'hesite pas

Commentaire de algori le 23/01/2005 20:41:51

Un petit conseil :
évite de mettre c:\windows.
Utilise plutôt fso.GetSpecialFolder(0)
ou alors utilise %windir%
Mais bon, ça, c'est du détail et tu peux ne pas y préter attention

Commentaire de Mirma le 30/01/2007 10:13:45

Salut !

Il est a noté qu'il convient d'utiliser : Environ("Systemdrive") Sous Windows XP afin de récupérer "Lettre_Du_Lecteur_De_L'OS:"
exemple : Si ton système est installé sur C: alors :
Msgbox Environ("Systemdrive") ---> Affichera C:

Ce qui est utilie car les cookies ne sont plus stockés dans le même répertoire sous XP ("Lecteur:\Documents and Settings\Votre_Nom\Cookies")

Voila, je pense que c'était ipmportant de le préciser.