Criando Um Bloqueador de sites

Ir em baixo

Criando Um Bloqueador de sites

Mensagem por Mr.Positive em 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
avatar
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 23
Localização : Recreio

Ver perfil do usuário http://www.jonathanmaia.com.br

Voltar ao Topo Ir em baixo

Re: Criando Um Bloqueador de sites

Mensagem por Freak em Ter Jan 04, 2011 6:49 pm

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

Mensagens : 134
Agradecimentos : 7
Data de inscrição : 02/01/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum