PEGANDO URL DO IE
galera, eu tenho um site aberto por exmplo, no MSN (www.msn.com.br), ai blz, eu abro meu programa e ele pega essa url e por numa text box.... tem como???
eu tbm tenho essa duvida, alguem p/ ajudar a gente?
nao sei se nosso amigo Mr_link conseguiu fazer o codigo funcionar.... andei vendo q eu tinha uma duvida parecida e tals..... fechando sites de um txt... soh que fui tentar utilizar o exemplo acima e a da minha duvida antiga e nao consigo fazer funcionar..... alguem sabe me dizer como eu fecho o IE (independente do counteudo)???
flws e vlws
flws e vlws
[txt-size=3]
Ja tinha respondido em outro tópico... ...mas segue a resolução do problema...
...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 !! [S20]
Não esqueça de finalizar o tópico !
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]
Ja tinha respondido em outro tópico... ...mas segue a resolução do problema...
...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 !! [S20]
Não esqueça de finalizar o tópico !
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]
era exatamente essa dica que tinha funcionado cmg.... + nao consigo + fechar o IE com ela =/// tem outro jeito de fechar os sites atras do caption dele?
[txt-size=3]
O exemplo que eu passei fecha as janelas a qual tenham os endereços de uma lista de palavras em txt, pra vc salvar os endereços vc altera o código no "IE.quit", colocando a rotina pra gravar em um TXT.
' fica mais ou menos assim... ...to sem VB aqui pra testar...
Set ie = CreateObject("internetexplorer.application")
Set objShell = CreateObject("Shell.Application")
Set SWs = objShell.Windows
For Each ie In SWs
siteacessado = ie.LocationURL
MsgBox siteacessado
' aqui vai ficar a rotina pra gravar no txt
Next [/txt-size]
O exemplo que eu passei fecha as janelas a qual tenham os endereços de uma lista de palavras em txt, pra vc salvar os endereços vc altera o código no "IE.quit", colocando a rotina pra gravar em um TXT.
' fica mais ou menos assim... ...to sem VB aqui pra testar...
Set ie = CreateObject("internetexplorer.application")
Set objShell = CreateObject("Shell.Application")
Set SWs = objShell.Windows
For Each ie In SWs
siteacessado = ie.LocationURL
MsgBox siteacessado
' aqui vai ficar a rotina pra gravar no txt
Next [/txt-size]
vixi maria..... tentei todos aqui... nenhum deu certo (o ultimo exemplo, do domload, eu coloquei num commandbutton e nao funcionou... :( ) se alguem puder me fazer um codigo-fonte, eu agradeco...
Tópico encerrado , respostas não são mais permitidas