Criando Um Bloqueador de sites

por Mr.Positive Ter Dez 28, 2010 2:35 pm

Requerimentos:

- 1 Form
- 1 List
- 1 Text
- 2 Botão

--------------------------------------------------------------------------------------------------

Bote o codico no botão e mude o nome para Bloquear e adicione esse codico

Open "C:\Windows\system32\drivers\etc\hosts" For Append As #1
Print #1, " 0.0 . 0.0 " & Text1.Text
Close #1
Dim Linha As String
List1.Clear
Open "C:\Windows\system32\drivers\etc\hosts" For Input Access Read Shared As #1
Do While Not EOF(1)
Line Input #1, Linha
List1.AddItem Linha
Loop
Close #1

Bote no segundo o code e mude o nome para Remover Todos Os Sites

Open "C:\Windows\system32\drivers\etc\hosts" For Output As #1: Close #1
Open "C:\Windows\system32\drivers\etc\hosts" For Append As #1
Print #1, "127. 0.0 .1 localhost"
Close #1
Dim Linha As String
List1.Clear
Open "C:\Windows\system32\drivers\etc\hosts" For Input Access Read Shared As #1
Do While Not EOF(1)
Line Input #1, Linha
List1.AddItem Linha
Loop
Close #1

No evento do form load bote

Dim Linha As String
List1.Clear
Open "C:\Windows\system32\drivers\etc\hosts" For Input Access Read Shared As #1
Do While Not EOF(1)
Line Input #1, Linha
List1.AddItem Linha
Loop
Close #1

E crie um Text Box e um list box

e organize como quizer!

Créditos : Victor

por Freak Ter Jan 04, 2011 6:49 pm

Nussa,
Isso vai ajuda eu e muito,
obrigado por posta.

Criando Um Bloqueador de sites

Criando Um Bloqueador de sites

Re: Criando Um Bloqueador de sites