1 Criando Um Bloqueador de sites no Visual Basic Sex Abr 05, 2013 11:54 pm
Moedas : 278
Mensagens : 1177
Idade : 26
Humor : Forever Alone T.T
Reputação : 28
Mensagens : 1177
Idade : 26
Humor : Forever Alone T.T
Reputação : 28
RodrigoNunes
Em seu Form adicione as seguintes ferramentas:
No evento Load do Form adicione o seguinte código:
Renomeie um botão e escreva "Renomear" logo após isso, adicione o código abaixo:
Renomeio o segundo botão para "Remover todos os sites" e adicione o seguinte código nele:
- 1 List
- 1 Text
- 2 Botão
No evento Load do Form adicione o seguinte código:
- 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
Renomeie um botão e escreva "Renomear" logo após isso, adicione o código abaixo:
- Código:
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
Renomeio o segundo botão para "Remover todos os sites" e adicione o seguinte código nele:
- 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