VBA para logar em Site

VBA & Macros

Post Recente por denisonreis 3 anos atrás

3 Posts

2 Usuários

2 Likes

1,052 Visualizações

RSS

denisonreis

(@denisonreis)

Posts: 10

Eminent Member

Topic starter

Bom dia pessoal!

O código abaixo está dando erro na parte do preenchimento das informações para logar no site.

Alguém pode me ajudar?

Private Sub CommandButton1_Click()
'entrar no site da Prefeitura

Dim objIE As New InternetExplorer 'Referencie "Microsoft Internet Controls"

With objIE
.Visible = True

objIE.Navigate2 "http://trbweb.sudoesteinformatica.com.br:4040/webrun/form.jsp?sys=NFE&dataConnection=PM_Eunapolis&action=openform&formID=8952&align=0&mode=-1&goto=-1&filter=&scrolling=no"

Do Until objIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

objIE.Document.all("WFRInput583029").innerText = "96615525"
objIE.Document.all("WFRInput583028").innerText = "995.956.258-25"
objIE.Document.all("WFRInput583064").innerText = "526525"

End With

End Sub

Postado : 15/06/2021 9:16 am

Raygsson

(@raygsson)

Posts: 68

Trusted Member

O erro provavelmente é porque os elementos de login estao dentro de um Iframe.

Tem que especificar isso quando for acessar o elemento, algo como isto:

objIE.Document.frames.Item("mainform").Document.all("WFRInput583029").innerText = "96615525"

Porém, você tem um problema maior pois essa página requer validar um Recaptcha, não ira conseguir automatizar essa validação. Sugiro logar manualmente e fazer a rotina seguir depois disso.

Postado : 15/06/2021 10:01 pm

denisonreis and EdsonBR reacted