VBA para logar em S...
 
Notifications
Clear all

VBA para logar em Site


denisonreis
Posts: 7
Registered
Topic starter
(@denisonreis)
Active Member
Entrou: 1 ano atrás

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

Responder
2 Respostas
Raygsson
Posts: 67
Registered
(@raygsson)
Trusted Member
Entrou: 1 ano atrás

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.

Responder
1 Responder
denisonreis
Registered
(@denisonreis)
Entrou: 1 ano atrás

Active Member
Posts: 7

@raygsson Show de bola !!!

Deu certo aqui... Só de preencher as informações já quebra um galhão pra mim.

Muito obrigado amigo pela força.

 

 
Responder