PROGRAMA QUE BLOQUEIE SITES
Bom é o seguinte pessoal, um cliente me procurou me pedindo se eu poderia criar um programa para bloquear ums sites na firma dele.
Eu falei que era dificil porque estes programas são feitos em C e o VB era mais para programas de escritório.
Mais dando uma olhada na net eu percebi que editando hosts daria para bloquear alguns sites.
Entaão:
O arquivo hosts é um arquivo texti certo?
E se eu criar um programa no vb que carregue junto com os sistema onde carregue um arquivo host e sobreponha o q esta no windows.
Ou seja se o cara descobrir que o bloqueio é através do host a cada cinco minutos o vb vai lá e verifica se o arquivo for diferente do carregado ele sobrepõe .
Eu falei que era dificil porque estes programas são feitos em C e o VB era mais para programas de escritório.
Mais dando uma olhada na net eu percebi que editando hosts daria para bloquear alguns sites.
Entaão:
O arquivo hosts é um arquivo texti certo?
E se eu criar um programa no vb que carregue junto com os sistema onde carregue um arquivo host e sobreponha o q esta no windows.
Ou seja se o cara descobrir que o bloqueio é através do host a cada cinco minutos o vb vai lá e verifica se o arquivo for diferente do carregado ele sobrepõe .
sim você pode editar o arquivo c:\windows\system32\drivers\etc\hosts
através do comando
'zera o arquivo
open c:\windows\system32\drivers\etc\hosts for output as #1
close #1
e
open c:\windows\system32\drivers\etc\hosts for append as #1
'faz uma busca em um bando e adciona sites bloqueados no arquivo
'exemplo
print #1, 127.0.0.1 www.vbmania.com.br 'tudo que for para vb mania direciona para o ip 127.0.0.1
close #1
‘para verificar se o arquivo foi alterado pode usar a data de modificação do windows quando iniciar cria o novo arquivo e verifica a data e de 5 em 5 minutos verifica a data
‘para utilizar este código você vai ter que fazer referencia a microsoft scripting runtime
Dim fso As New FileSystemObject
Dim arquivo As File
Set arquivo = fso.GetFile("c:\windows\system32\drivers\etc\hosts")
MsgBox arquivo.DateLastModified
através do comando
'zera o arquivo
open c:\windows\system32\drivers\etc\hosts for output as #1
close #1
e
open c:\windows\system32\drivers\etc\hosts for append as #1
'faz uma busca em um bando e adciona sites bloqueados no arquivo
'exemplo
print #1, 127.0.0.1 www.vbmania.com.br 'tudo que for para vb mania direciona para o ip 127.0.0.1
close #1
‘para verificar se o arquivo foi alterado pode usar a data de modificação do windows quando iniciar cria o novo arquivo e verifica a data e de 5 em 5 minutos verifica a data
‘para utilizar este código você vai ter que fazer referencia a microsoft scripting runtime
Dim fso As New FileSystemObject
Dim arquivo As File
Set arquivo = fso.GetFile("c:\windows\system32\drivers\etc\hosts")
MsgBox arquivo.DateLastModified
Cara até ai beleza.. o um problema é c o cara der um ctrl+alt+del , porque dai o cara pode descobrir que o programa esta funcionando e fecha-lo.
bom o que vc poderia fazer é bloquear o gerenciador de tarefas e criar uma especie de atalho do teclado para desativar o sistema
Ai vc pode bloquiar o CTRL+ALT+DEL amigo...
Não vou postar aqui como fazer pois isto pode ser utilizado de ma fé por alguém, mas me mande um e-mail que lhe respondo explicando como fazer.
Não vou postar aqui como fazer pois isto pode ser utilizado de ma fé por alguém, mas me mande um e-mail que lhe respondo explicando como fazer.
bom cara pra vc bloquear o CTRL + ALT + DEL faz assim
Private Sub Command1_Click()
Open "c:\windows\system32 askmgr.exe" For Binary Access Read Lock Read As #1
End Sub
Private Sub Command2_Click()
Close #1
End Sub
Tópico encerrado , respostas não são mais permitidas