Discussion :

[hackoofr]

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 tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim Fso,f
Dim rep,label,titre,defaut,data
label="Entrez dans le champ ci-dessous Le site que vous-voulez Bloquer Exemple www.pagedepubs.com"
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

[hackoofr]

Voila après quelques recherche dans la toile j'ai parvenu a ces deux scripts.Alors j'attends vos conseils et vos améliorations pour ces derniers et me dire lequel des deux peut-être le mieux adapté.
Personnellement je préfère le second script il est moins compliqué.
Mais je me demande s'il n'a pas une instruction comme "deleteline" pour supprimer toute la ligne ou se trouve le nom du site pour éliminer la partie restante comme 127.0.0.1.
Merci d'avance.
Script N°1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
function update_files(Fichier,LigneCherche,Path)
    'wscript.echo Fichier
	wscript.echo LigneCherche
	'wscript.echo Path
	Dim fso
	Dim oRegEx
	Dim monFichier
	Dim sStream
	Dim sNewStream
 
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set oRegEx = New RegExp
 
	oRegEx.Global = True
	oRegEx.Pattern = LigneCherche
 
	Set monFichier = fso.OpenTextFile(Fichier,1)
 
	sStream = monFichier.ReadAll
	monFichier.Close
 
	sNewStream = oRegEx.Replace(sStream, Replace("",LigneCherche,""))
 
	If InStr(sNewStream,vbLf)=1 Then sNewStream = Replace(sNewStream, Replace("",LigneCherche,""),1,1)
	Set monFichier = fso.OpenTextFile(Fichier,2)
	monFichier.Write sNewStream
 
	monFichier.Close
end function
dim Fso,f
Dim rep,label,titre,defaut,data
label="Entrez dans le champ ci-dessous Le site que vous-voulez Débloquer Exemple www.pagedepubs.com"
defaut=""
titre="Débloquer les Sites Interdits"
rep=InputBox(label,titre,defaut)
if rep="" then Cleanup
Set Fso = CreateObject("Scripting.FileSystemObject")
sys32=Fso.GetSpecialFolder(1)
path=sys32+"\DRIVERS\ETC\hosts"
update_files path,rep,Path
 
Sub Cleanup()
  Set FSO = Nothing
  WScript.Quit
End Sub

Script N°2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Sub Cleanup()
  Set FSO = Nothing
  WScript.Quit
End Sub
Sub WriteDataToFile(sPathFile, sData)
'   reader
    Dim oFSO
    Set oFSO = CreateObject("Scripting.fileSystemObject")
'   fichier : chemin, 2 pour  écrire (et écraser), True pour forcer la création du fichier
    Dim oFile
    Set oFile = oFSO.openTextFile(sPathFile, 2, True)
'   écriture
    oFile.Write sData
'    nettoyage
    oFile.Close
    Set oFile = Nothing
    Set oFSO = Nothing
End Sub
 
Function ReadDataFromFile(sPathFile)
'    reader
    Dim oFSO
    Set oFSO = CreateObject("Scripting.fileSystemObject")
'    fichier
    Dim oFile
    Set oFile = oFSO.openTextFile(sPathFile,1)
'   stream
    'Dim oStream
    'Set oStream = oFile.OpenAsTextStream(sPathFile,ForReading)
 
'   retour
    ReadDataFromFile = oFile.ReadAll
'   nettoyage
    'oStream.Close
    'Set oStream = Nothing
    Set oFile = Nothing
    Set oFSO = Nothing
End Function
 
Function FileExists(sPathFile)
'    reader
    Dim oFSO
    Set oFSO = CreateObject("Scripting.fileSystemObject")
 
'    retour
    FileExists = oFSO.FileExists(sPathFile)
 
'   nettoyage
    Set oFSO = Nothing
End Function
 
Private Function ChangeWords(sWordsToRemove, sWordsToChange, sFile)
 
    If FileExists(sFile) Then
'       ouvre le  fichier
        Dim sBuffer
        sBuffer = ReadDataFromFile(sFile)
'       ligne à changer existe?
        If InStr(1, sBuffer, sWordsToRemove) > 0  Then
            sBuffer = Replace(sBuffer, sWordsToRemove,  sWordsToChange)
            WriteDataToFile sFile, sBuffer
            ChangeWords = True
        End If
	End if	
End Function
dim Fso,f
Dim rep,label,titre,defaut,data
label="Entrez dans le champ ci-dessous Le site que vous-voulez Débloquer Exemple www.pagedepubs.com"
defaut=""
titre="Débloquer les Sites Interdits"
Set Fso = CreateObject("Scripting.FileSystemObject")
sys32=Fso.GetSpecialFolder(1)
sFile=sys32+"\DRIVERS\ETC\hosts"
sWordsToRemove=InputBox(label,titre,defaut)
if sWordsToRemove="" then Cleanup
ChangeWords sWordsToRemove, "", sFile