CONTROLAR SITE SERASA - VBA

CHDSSANTOS 17/04/2016 21:36:39
#461064
Pessoal, boa noite!

Já faz um tempo que estou procurando uma forma de fazer isso através de VBA, mas não estou conseguindo.
Adiantado peço desculpas pela minha ignorância em programação.

Andei pesquisando como fazer o login no site do Serasa através do VBA, para automatizar algumas tarefa.
Encontrei o código abaixo na net, entre outros, mas todos barram no mesmo problema.

Consigo preencher via código os campos usuário e senha, mas não consigo fazer o código clicar no botão entrar.
Por favor, alguém poderia me dar uma luz, como faço o código clicar neste botão [Ô]ENTRAR[Ô]

Sub Teste()
Dim ie As InternetExplorer

Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate [Ô]https://sitenet.serasa.com.br/Logon/[Ô]

Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

ie.Document.all([Ô]LOGON[Ô]).innerText = [Ô]Teste[Ô]
ie.Document.all([Ô]SENHA[Ô]).innerText = [Ô]Teste[Ô]
[ô]Aqui esta o problema
ie.Document.all.a.btnSubmit.Click

Set ie = Nothing
End Sub
LUIZCOMINO 18/04/2016 08:07:44
#461065 Resposta escolhida
Amigo , faça o sistema precionar a tecla enter após o preenchimento usando o comando sendkey, segue como usar https://msdn.microsoft.com/en-us/library/aa266279(v=vs.60).aspx




isso é só uma das possibilidades, abraços
 Sub Teste()
    Dim ie As InternetExplorer

    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate [Ô]https://sitenet.serasa.com.br/Logon/[Ô]

    Do Until ie.ReadyState = READYSTATE_COMPLETE
    Loop

    ie.Document.all([Ô]LOGON[Ô]).innerText = [Ô]Teste[Ô]
    ie.Document.all([Ô]SENHA[Ô]).innerText = [Ô]Teste[Ô]
  [ô]Aqui esta o problema 
    sendkey [Ô]{ENTER}[Ô]

    Set ie = Nothing
End Sub


Abraços!
KURTGU 18/04/2016 08:35:48
#461067
por que não usa o webservice do serasa? se não me engano para consultas eles tem um webservice...
CHDSSANTOS 18/04/2016 13:51:41
#461080
Luiz, a ideia é excelente, mas fica uma duvida... Meu objetivo é automatizar um processo que deverá rodar na maquina da empresa mesmo com a tela fechada, ai realmente não sei dizer qual seria o comportamento do código realizando a ação com o PC travado, vc saberia me dizer se funciona?.

Kurtgu, não conheço esse webservice poderia me dar mais informações por neste caso o que pretendo fazer automatizar um processo de negativação e exclusão de negativação. Sabe se esse webservice funciona para isso?
LUIZCOMINO 18/04/2016 14:38:48
#461084
amigo testei o seu código aqui e resolve fácil sem a necessidade do [Ô]enter[Ô].

 
Sub Teste()
    Dim ie As InternetExplorer

    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate [Ô]https://sitenet.serasa.com.br/Logon/[Ô]

    Do Until ie.ReadyState = READYSTATE_COMPLETE
    Loop

    ie.Document.all([Ô]LOGON[Ô]).innerText = [Ô]Teste[Ô]
    ie.Document.all([Ô]SENHA[Ô]).innerText = [Ô]Teste[Ô]
  [ô]Aqui esta o problema 
    ie.Document.forms([Ô]authenticationForm[Ô]).submit

    Set ie = Nothing
End Sub


CHDSSANTOS 03/05/2016 10:29:29
#461800
LUIZCOMINO, obrigado pela ajuda...

Mas estranhamente o site não aceita esta forma de logon...
Se eu clicar no botão ENTRAR ou teclar ENTER o logon segue normalmente.

Não sei como proceder.
LUIZCOMINO 03/05/2016 13:41:31
#461808
Que estranho , quando eu fiz o teste ele submeteu o o login normalmente, creio que vc ter a que fazer alguns testes com a opção de chamar o Enter pelo sendkey
Tópico encerrado , respostas não são mais permitidas
Voltar