Imprimer

[Lownoise]

Membres: 1415  •  Messages: 46895  •  Sujets: 6178  •  Merci d'accueillir Lownoise, notre dernier membre.

Merci de vous connecter ou de vous inscrire.
1 heure 1 jour 1 semaine 1 mois Toujours
Connexion avec identifiant, mot de passe et durée de la session

[Hackoo]

Salut à Tous !
Voila je m'explique un peu le but de ce script: c'est comment Bloquer un site. donc j'ai trouvé
Une solution simple qui consiste à utiliser le fichier hosts de Windows.
Ce fichier se trouve dans
c:\windows\system32\drivers\etc (Windows XP)
ou c:\winnt\system32\drivers\etc (Windows NT4, 2000)
ou c:\Windows (Windows 95, 98 Me)
Exemple "bloquer" www.pagedepubs.com
Dans le fichier HOSTS à la fin tu rajoutes
127.0.0.1 www.pagesdepubs.com

Maintenant que ce script marche très bien je souhaite faire un autre mais dans le but de débloquer ce site que j'ai déjà auparavant Bloquer.
donc je dois lire le fichier hosts ligne par ligne et si je trouve le site bloqué je le supprime ou bien le remplacer par un blanc ou espace.
Voila le code source pour bloquer un site. je souhaite que vous m'aiguiller un peu pour parvenir a créer un autre Pour le débloquer.
Merci d'avance !!! 

Code: [Sélectionner]

dim Fso,f
Dim rep,label,titre,defaut,data
label="Entrez dans le champ ci-dessous Le site que vous-voulez Bloquer Exemple [url=http://www.pagedepubs.com]www.pagedepubs.com[/url]"
defaut=""
titre="Bloquer les Sites Interdits"
rep=InputBox(label,titre,defaut)
Set Fso = CreateObject("Scripting.FileSystemObject")
sys32=Fso.GetSpecialFolder(1)
Set f = fso.OpenTextFile(sys32+"\DRIVERS\ETC\hosts", 8)
if rep="" then Cleanup
f.Write vbnewline
f.Write "127.0.0.1   "  &rep
 
Sub Cleanup()
  Set FSO = Nothing
  WScript.Quit
End Sub

[yesil08]

c'est du visuel basic ca ?

Euh je ne vois pas le problème, si tu es arrivé à écrire celui qui bloque le fichier pourquoi t'as du mal à écrire celui qui débloque ?