COMO FECHAR SITES QUE ESTAO NUMA TXT???

USUARIO.EXCLUIDOS 28/12/2004 19:45:13
#57519
galera, como que eu faco p/ um aplicativo meu, de tempos em tempos, verificar todas as janelas do IE que estiverem abertas e fechar as que estao numa txt??? ex. eu tenho uma txt onde tem os sites "proibidos"

orkut
msn
fotologs
.
.
.
etc etc etc

dai, se tiver algum site desses o aplicativo fechar automaticamente???
(como se fosse um "firewall", que restringiria o acesso a esses sites....)

agradeco desde jah
DOMLOAD 31/12/2004 11:40:05
#57935 Resposta escolhida

[txt-size=3]To fazendo esse programa, me passa o seu e-mail que te mando... ...to fazendo algumas melhorias, mas ele ja fecha as janelas que estão em uma lista que contenham as palavras de txt salvo no c:\ ...

Falow !![/txt-size]
DOMLOAD 31/12/2004 12:00:16
#57936

[txt-size=3] ...Cria um Módulo e coloca este código... ...cria uma rotina que chame de tempos em tempos esta sub firewall que não tem erro, a lista de palavras que não podem ter nos links fica no c:\lista.txt..

Qualquer coisa dá um grito !!

Abraço !!

Feliz 2005 !!! [S20]

Domload

******************************************

Sub firewall()

inicio:

Set ie = CreateObject("internetexplorer.application")
Set objShell = CreateObject("Shell.Application")
Set SWs = objShell.Windows

For Each ie In SWs

Dim Numero1 As Integer

Numero1 = FreeFile

'local onde está a lista em txt
Open "c:\lista.txt" For Input As Numero1
Do While Not EOF(Numero1)
Input #Numero1, palavra

If InStr(ie.LocationURL, palavra) Then
ie.Quit

MsgBox "Este site não é permitido !", vbCritical, "Aviso"

GoTo inicio

End If
Loop

Close #Numero1

Next

End Sub[/txt-size]
DOMLOAD 01/01/2005 23:13:13
#58097
[txt-size=3]
é isso ai Amigo !!! Estamos ai pra Ajudar !!!
Um Abraço !!
Até a próxima !!![/txt-size][S71]

...Não esqueça de encerrar o tópico..
..falow !!
Tópico encerrado , respostas não são mais permitidas
Voltar