Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Criando Um Bloqueador de sites no Visual Basic em Sex Abr 05, 2013 11:54 pm

Moedas Moedas : 278
Mensagens Mensagens : 1177
Idade Idade : 19
Humor Humor : Forever Alone T.T
Reputação Reputação : 28
Quebra de regras:
0 / 1000 / 100

RodrigoNunes

Admin

Admin

Em seu Form adicione as seguintes ferramentas:

  1. 1 List
  2. 1 Text
  3. 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




[Você precisa estar registrado e conectado para ver esta imagem.]
O Administrador ℛodrigoNunes sugere:
- Respeite as [Você precisa estar registrado e conectado para ver este link.]
- Participe das nossas [Você precisa estar registrado e conectado para ver este link.]
- Veja a nosso [Você precisa estar registrado e conectado para ver este link.]
- Não peça suporte por MP


Try
Topic.Resolve;
Finally
Topic.Caption := Topic.Caption + '[RESOLVIDO]';
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário https://www.facebook.com/DarkGamesBrasil formatacaodemicros@hotmail.com.br naotenho esqueci

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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