• 0
Sign in to follow this  
rondini

VBA Interagindo com FIREFOX

Question

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

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 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.

Share this post


Link to post
Share on other 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"

Share this post


Link to post
Share on other sites
  • 0

O mesmo vale para o Chrome. Não existe um OLE que você pode manipular o Chrome, Opera nem FireFox.

O método getElementById faz parte do objeto Document que é um membro da classe da biblioteca do Internet Explorer, ou seja: só válido para Internet Explorer.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this