Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Acessar pagina Web com login e senha VBA

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Felipe Spada
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Nov 12, 2013 12:19 pm

Acessar pagina Web com login e senha VBA

Mensagem por Felipe Spada »

Boa noite, pessoal!!

Alguem consegue me ajudar...???
Estou utilizando o codigo abaixo, porém sem sucesso para o site: http://eaton.scua.com.br:8084/contact/jsp/index.jsp.
Não consegui identificar os Id dos campos.


Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "site do login"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True

Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document
HTMLDoc.all.id de Email.Value = "seu e-mail"
HTMLDoc.all.id de senha.Value = "sua senha"

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:

Resume Next
End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Acessar pagina Web com login e senha VBA

Mensagem por webmaster »

Isso?

Código: Selecionar todos

'@Folder("VBAProject")
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

    Dim oHTML_Element As IHTMLElement
    Dim sURL As String
    On Error GoTo Err_Clear
    sURL = "http://eaton.scua.com.br:8084/contact/jsp/index.jsp"
    Set oBrowser = New InternetExplorer
    oBrowser.Silent = True
    oBrowser.timeout = 60
    oBrowser.Navigate sURL
    oBrowser.Visible = True

    Do
    Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

    Set HTMLDoc = oBrowser.Document
    HTMLDoc.all("login").Value = "seu e-mail"
    HTMLDoc.all("senha").Value = "sua senha"

    For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
        If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

    Next
Err_Clear:

    Resume Next
End Sub


Felipe Spada
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Nov 12, 2013 12:19 pm

Re: Acessar pagina Web com login e senha VBA

Mensagem por Felipe Spada »

Ola, webmaster!! Desde ja agradeço sua ajuda....

O codigo abri a pagina, porém não preenchi os campo de login e senha...
Fiz um teste com esse codigo para acessa o Facebook e funcionou, porém nesse site em especifico ("http://eaton.scua.com.br:8084/contact/jsp/index.jsp") não funciona.
No código da pagina web eu não achei o Id dos objetos (login e senha) apenas os nomes.... to ralando, mas ta dificil....Consegue me ajudar???


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder