✓ Tutorial: Como Criar um Bloqueador de Sites

[Dagger_Hacking 2]

1. Adicione os seguintes itens no projeto :

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

: [ 1 ] Textbox

: [ 2 ] Button

: [ 1 ] ListBox ou Listview

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

[spoiler=x Print do Projeto]

 

[spoiler=x Print dos Codigos]

 

 

2. Agora vamos Colocar os Codigos :

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

: Primeiro adicione duas String como na Imagens Acima !!

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

Botão Bloquear :

path = "C:\Windows\System32\drivers\etc\hosts"

sw = New StreamWriter(path, True)

Dim x As String = (Environment.NewLine & "127.0.0.1 " & TextBox1.Text)

sw.Write(x)

sw.Close()

ListBox1.Items.Add(TextBox1.Text + " | Bloqueado")

Botão Desbloquear :

Dim strPath = "C:\Windows\System32\drivers\etc\hosts"

Dim fs As New FileStream(strPath, FileMode.Open)

Dim sr As New StreamReader(fs)

Dim strFile As String

strFile = sr.ReadToEnd()

sr.Close()

Dim fstwo As New FileStream(strPath, FileMode.Create)

strFile = strFile.Replace(TextBox1.Text, "")

ListBox1.Items.Add(TextBox1.Text + " | Desbloqueado")

Dim sw As New StreamWriter(fstwo)

sw.Write(strFile)

sw.Flush()

sw.Close()

 

> Download do Projeto :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

> Scan :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Newt Scamander 215]

Olá, adicionei scan ao seu tópico.

 

Bom tópico. Porque ao invés , de ter de percorrer todo o arquivo, apagar , depois escrever denovo, você só não localiza a linha e apaga ela? Seria mais simples não rs. Mas enfim, assim também funciona.

[luiizfellipe 1]

boa