[Tutorial] Criando Um Bloqueador de sites

por **schnaidinha** Qui Mar 29, 2012 3:59 pm

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

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

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

Código:: 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

Código:: 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

Código:: 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 quiser!