Ir para conteúdo
Fórum Script Brasil
  • 0

VBA Interagindo com FIREFOX


rondini

Pergunta

Olá amigos, vejam se podem me ajudar com essa duvida.

Tenho uma macro que abre uma pagina na internet (IE) coloca a URL e consigo inserir dados como (Login e senha) e clicar no botão confirma tudo pelo vba.

Ai sem mais sem menos decidi usar o Firefox como meu navegador padrão, ou seja não quero mais usar o IE.

Ai vai as pesquisas de como montar um código que fazia para o IE mas para o Mozila Firefox,

Então cheguei nesse que irei postar abaixo é só colocar no modulo e executar, vai funcionar, a única coisa que não consegui, é inserir os dados nos formulários tipo (Login e Senha) por ele, se puderem me ajudar

Ah no IE era usado esse para fazer o insert no formulario;

IE.document.all("username").innerText = "rondini"

IE.document.all("password").innerText = "XXXX"

IE.document.all("btnLogin").Click

Segue o código Firefox

Sub Test_OpenFireFoxNewTab()

OpenInFireFoxNewTab "http://scriptbrasil.com.br/forum/index.php?showforum=15"

End Sub

Sub OpenInFireFoxNewTab(url As String)

Dim pathFireFox As String

pathFireFox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

If Dir(pathFireFox) = "" Then pathFireFox = "C:\Program Files\Mozilla Firefox\firefox.exe"

If Dir(pathFireFox) = "" Then

MsgBox "FireFox Path Not Found", vbCritical, "Macro Ending"

Exit Sub

End If

Shell """" & pathFireFox & """" & " -new-window " & url, vbHide

'para newtab usar esse -new-tab

End Sub

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Não é possível controlar o FireFox por VBA dessa forma.

Você pode tentar ler as instruções da página http://www.iol.ie/~locka/mozilla/control.htm

Ela possui as instruções de como usar o FireFox como um controle ActiveX, mas não recomendo já que:

Visual Basic 6

The Mozilla Browser control should be usable from any automation control container. This includes Visual Basic, so follow these steps to add the control to your VB project:

Install the control / or compile it and ensure it is registered.

Right mouse over the VB control bar and select "Components...".

Choose "MozillaControl 1.0 Type Library" from the list of controls

The Mozilla Browser control should now appear in the toolbar for insertion into any application

Once the control is inserted, you should be able to directly call the events, methods and properties it exposes. The latest control source contains an example VB project called VBrowse.

Note: Save your project often! Bugs in the alpha-quality Mozilla will crash your development environment and will wipe out any unsaved work you may have.

Link para o comentário
Compartilhar em outros sites

  • 0

Olá realmente é difícil comecei a pesquisar pelo Chrome e cheguei no seguinte código abaixo

Sub chrome()

Dim chromePath As String

Dim endereco As String

chromePath = """C:\Users\IBM_ADMIN\AppData\Local\Google\Chrome\Application\chrome.exe"""

endereco = "http:uol.com.br"

Shell (chromePath & endereco)

End Sub

Pelo Chrome consigo se tiver alguma tela de login e senha, inserir via código e me logar?

não sei se seria algo assim

Document.getElementById("USERNAME").Value = "rondini"

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...