EXECUCAO DE PROGRAMA
Tem uma forma de impedir que a pessoa execute um determinado programa no computador, e que ela visite determinados sites
E aà Zeca, blz...
Sem dúvida um servidor proxy é a melhor opção, mas já que esta fora de cogitação, você pode fazer o seguinte.
Primeiro faça referência a shdocvw.dll:
Project depois References marque a opção Microsoft Internet Constrols
Coloque a função em um módulo.
Depois é só chamar a função em um timer.
Private Sub Timer1_Timer()
VerificaURL
End Sub
Esta função verifica o endereço tanto do Internet Explorer quanto do Explorer, assim se o usuário tiver uma pasta com o nome playboy que está bloqueado ele não vai conseguir abrir.
Para melhorar a função, onde é feita a verificação:
If InStr(1, UCase(URL), UCase("PlaYboy")) > 0 Then
Você poderia cadastrar em um banco as palavras bloqueadas tipo jogos, sexy, ninfeta, etc . . .
O seu programa pode também gerar um log do que foi bloqueado e liberado, e enviar para você automaticamente, então você atualiza a lista de sites bloqueados.
Outra sugestão, ou inves de fechar o Internet Explorer, você pode mandar o usuário para a página da disney
IE.Navigate "www.disney.com.br"
ou
IE.Navigate "www.igrejas.org/"
Lembrando que esta função só funciona com o Internet Explorer . . .
No caso do programa, é meio parecido com o exemplo acima, pois poderiamos utilizar a função GetWindowText para ver o tÃtulo dos programas que estão em execução, e trabalhar com palavras bloqueadas tipo Kazaa, Emule, Icq, etc . . . e então finalizar o processo.
Agora estou meio sem tempo (pra variar), logo posto aqui no forum.
Sem dúvida um servidor proxy é a melhor opção, mas já que esta fora de cogitação, você pode fazer o seguinte.
Primeiro faça referência a shdocvw.dll:
Project depois References marque a opção Microsoft Internet Constrols
Coloque a função em um módulo.
Public Sub VerificaURL()
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
'VERIFICA AS JANELAS DO INTERNET EXPLORER ABERTAS
For Each IE In SWs
'VARIà ÂVEL RECEBE O ENDEREÇO, NO CASO DE SE FECHAR O NAVEGADOR
URL = IE.LocationURL
'VERIFICA SE NO ENDEREÇO EXISTE A PLAVRA PLAYBOY
If InStr(1, UCase(URL), UCase("PlaYboy")) > 0 Then
'FECHA O NAVEGADOR
IE.Quit
'ENVIA UMA MENSAGEM MOTIVADORA
MsgBox "Vai trabalhar VAGABUNDO!!!", vbExclamation, "Aviso"
End If
Next
End Sub
Depois é só chamar a função em um timer.
Private Sub Timer1_Timer()
VerificaURL
End Sub
Esta função verifica o endereço tanto do Internet Explorer quanto do Explorer, assim se o usuário tiver uma pasta com o nome playboy que está bloqueado ele não vai conseguir abrir.
Para melhorar a função, onde é feita a verificação:
If InStr(1, UCase(URL), UCase("PlaYboy")) > 0 Then
Você poderia cadastrar em um banco as palavras bloqueadas tipo jogos, sexy, ninfeta, etc . . .
O seu programa pode também gerar um log do que foi bloqueado e liberado, e enviar para você automaticamente, então você atualiza a lista de sites bloqueados.
Outra sugestão, ou inves de fechar o Internet Explorer, você pode mandar o usuário para a página da disney
IE.Navigate "www.disney.com.br"
ou
IE.Navigate "www.igrejas.org/"
Lembrando que esta função só funciona com o Internet Explorer . . .
No caso do programa, é meio parecido com o exemplo acima, pois poderiamos utilizar a função GetWindowText para ver o tÃtulo dos programas que estão em execução, e trabalhar com palavras bloqueadas tipo Kazaa, Emule, Icq, etc . . . e então finalizar o processo.
Agora estou meio sem tempo (pra variar), logo posto aqui no forum.
So mais uma coisa, para você não fechar o explorer, você pode verificar a propriedade FullName, assim você consegue saber se o usuário está no Explorer ou no IExplorer
Tópico encerrado , respostas não são mais permitidas