Cookies VBS
Résolu
Zabuchi
Messages postés
5
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
26 février 2006
-
24 févr. 2006 à 20:03
Zabuchi Messages postés 5 Date d'inscription vendredi 24 février 2006 Statut Membre Dernière intervention 26 février 2006 - 25 févr. 2006 à 10:19
Zabuchi Messages postés 5 Date d'inscription vendredi 24 février 2006 Statut Membre Dernière intervention 26 février 2006 - 25 févr. 2006 à 10:19
4 réponses
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
24 févr. 2006 à 23:52
24 févr. 2006 à 23:52
Re-bonsoir,
Via Google, je viens de trouvez un site sympa sur le VBS.
http://www.interclasse.com/articles/scripts.php
La recherche de x fichiers (Cookies ou x.extension) peut s'effectuer
en vbs en utilisant, et mélangeant, Fso, Shell, WSH, WMI....
'Constante via registre, repertoire "c:\Documents et Setting\user\Cookies"
Const COOKIES = &H21&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(COOKIES)
'Recherche des fichiers
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items
'Recherche des fichiers
For Each objItem in colItems
var = var &vbCrLf& objItem.Name
'Affichage resutat "var" courante + var cumul
MsgBox var
Next
Donc, pour deleter des cookies, méthode fso.DeleteFile(objItem.Name)
Via Google, je viens de trouvez un site sympa sur le VBS.
http://www.interclasse.com/articles/scripts.php
La recherche de x fichiers (Cookies ou x.extension) peut s'effectuer
en vbs en utilisant, et mélangeant, Fso, Shell, WSH, WMI....
'Constante via registre, repertoire "c:\Documents et Setting\user\Cookies"
Const COOKIES = &H21&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(COOKIES)
'Recherche des fichiers
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items
'Recherche des fichiers
For Each objItem in colItems
var = var &vbCrLf& objItem.Name
'Affichage resutat "var" courante + var cumul
MsgBox var
Next
Donc, pour deleter des cookies, méthode fso.DeleteFile(objItem.Name)
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
24 févr. 2006 à 22:05
24 févr. 2006 à 22:05
Bonsoir,
Il suffit de remplacer le msgbox par un DeleteFile
Const COOKIES = &H21&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(COOKIES)
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items
For Each objItem in colItems
var = var &vbCrLf& objItem.Name
MsgBox var
Next
msgbox objFolderItem.Path &vbCrLf& var
Il suffit de remplacer le msgbox par un DeleteFile
Const COOKIES = &H21&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(COOKIES)
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items
For Each objItem in colItems
var = var &vbCrLf& objItem.Name
MsgBox var
Next
msgbox objFolderItem.Path &vbCrLf& var
Zabuchi
Messages postés
5
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
26 février 2006
24 févr. 2006 à 22:46
24 févr. 2006 à 22:46
Bonsoir,
Peux-tu ajouter des commentaires à ton bout de code s'il te plaît ? Je débute et ne comprend pas très bien les actions faites...
Merci de m'avoir répondu.
Zabuchi.
Peux-tu ajouter des commentaires à ton bout de code s'il te plaît ? Je débute et ne comprend pas très bien les actions faites...
Merci de m'avoir répondu.
Zabuchi.
Zabuchi
Messages postés
5
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
26 février 2006
25 févr. 2006 à 10:19
25 févr. 2006 à 10:19
Bonjour,
ça marche à la perfection.
Merci.
Zabuchi.
ça marche à la perfection.
Merci.
Zabuchi.
