[Resolvido]Preenchendo campo em formulario web do internet explorer

Amigos,

Após vasculhar a internet, não encontrei a solução do meu problema.
Utilizo o Access 2007 e a referência Microsoft Internet Controls está ativada.

Estou tentando fazer o login no site: www.v2smv.com.br

utilizando o seguinte código:

Código:


Sub Logar()

Dim ie As New InternetExplorer
Set ie = CreateObject("InternetExplorer.application")


With ie

.Visible = True
.Navigate ("http://v2smv.com.br")

While .Busy Or .ReadyState <> 4: DoEvents: Wend

.Document.getElementById("txtLogin").Focus
.Document.getElementById("txtLogin").Value = "usuario"

.Document.getElementById("txtPassword").Focus
.Document.getElementById("txtPassword").Value = "senha"

End With
End Sub


Ao chegar no comando Focus, apresenta o erro 2110 abaixo:



Retirando essa parte do focus, a macro roda, mas não preenche os campos do formulário.

Outro ponto é que não consigo achar o id do botão ok para dar o comando click

Sabem o que pode estar acontecendo?

Abraços.

Bom dia, e bem-vindo ao fórum
No primeiro Focus funciona e no segundo não? Tente perceber se existe alguma diferença entre ambos.

Opa Kadu,
não é necessário usar o comando Focus


Esse form Web tem um iFrame e ele tem que ser informado no código

Altere conforme abaixo

Código:

.Document.frames("frBody").Document.all("txtLogin").Value = "exemplo"
.Document.frames("frBody").Document.all("txtPassword").Value = "senha"

Olá,

Como o Amigo acima já respondeu,

O domínio www.v2smv.com.br

não é o correto para você incluir o login e a senha.

você deve navegar para o Frame do domínio:

https://w08ger0045.websiteseguro.com/v2smv1/login.asp?todo=


Sobre o click do botão OK:

Tente fazer um for each por esta tag:

Código:

<td valign="bottom">

   <button style="border:none; width:25px; height:14px; background-image:url("img/mini_ok.gif"); " onclick="javascript:ajaxLogin("login");"></button>

</td>

Seu código ficaria assim:

Código:


Sub Logar()

' É necessário marcar a referência MicrosoftHTML Object Library

Dim LinkButton  As HTMLAnchorElement
Dim HtmlDoc

Dim ie As New InternetExplorer
Set ie = CreateObject("InternetExplorer.application")


With ie

.Visible = True
.Navigate ("https://w08ger0045.websiteseguro.com/v2smv1/login.asp?todo=")

'Tente este código:

While .Busy Or .ReadyState <> 4: DoEvents: Wend


.Document.getElementById("txtLogin").Focus
.Document.getElementById("txtLogin").Value = "usuario"

.Document.getElementById("txtPassword").Focus
.Document.getElementById("txtPassword").Value = "senha"


Set HtmlDoc = .Document

            For Each LinkButton In HtmlDoc.getElementsByTagName("button") 'Inspecionar elemento Button
                
               If InStr(LinkButton.getAttribute("onclick"), "login") > 0 Then 'Verificar Atributo Onclick      
   
                 LinkButton.Click

                 Exit For
                                
               End If
                
            Next LinkButton


End With

End Sub


Pessoal muito obrigado pela ajuda!

A solução do chsestrem funcionou perfeitamente!

Abraços