Messages

Sinto cheiro de banking no ar ^^

nem, fora de meus conceitos. eu apenas estudo tudo que vejo pela frente. mas banker sacaneo hein.

[LocationURL]

Olá pessoal! primeiro tópico no fórum!

bom aqui vai um exemplo de como pegar a URL da pagina aberta no IE

Code Select Expand



        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:

Code Select Expand


Variavel = oWin.Document.documentElement.outerHTML


Para mudar o codigo fonte da pagina aberta use:

Code Select Expand


oWin.body.innerHTML = "<h1>[url=http://www.BRCODE.org]www.BRCODE.org[/url]</h1>"


Ou

Code Select Expand


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  :)