Olá pessoal! primeiro tópico no fórum!
bom aqui vai um exemplo de como pegar a URL da pagina aberta no IE
Set oShellApp = CreateObject("Shell.Application")
For Each oWin In oShellApp.Windows
If UCase(TypeName(oWin.Document)) = "HTMLDOCUMENT" Then
URLABERTA = oWin.LocationURL
End If
Next
usando o método LocationURL, a url vai ser salva na variavel URLABERTA
Para pegar o codigo fonte da pagina que esta aberta use:
Variavel = oWin.Document.documentElement.outerHTML
Para mudar o codigo fonte da pagina aberta use:
oWin.body.innerHTML = "<h1>[url=http://www.BRCODE.org]www.BRCODE.org[/url]</h1>"
Ou
oWin.Document.write ("<h1>[url=http://www.BRCODE.org]www.BRCODE.org[/url]</h1>")
é isso ai, vai da sua criatividade, da pra fazer muuuita coisa com isso
Tópico retirado do fórum: [ link removido ~ conteudo improprio para menores ] by Reeves :)
Sinto cheiro de banking no ar ^^
mas MUITO obrigado pela contribuição, apesar de estar clara a sua intenção, de divulgar o brcode, mas é assim mesmo, divulgação com conteúdo é sempre bem vinda, e funciona ^^
Quote from: Mateus on 11 de February , 2010, 04:28:41 AM
Sinto cheiro de banking no ar ^^
nem, fora de meus conceitos. eu apenas estudo tudo que vejo pela frente. mas banker sacaneo hein.
Intenção de divulgar o forum ? Não imagina que ele tava com essa intenção...
hauhauhauhauaha