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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Acessar pagina Web com login e senha VBA
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Ter Nov 12, 2013 12:19 pm
Re: Acessar pagina Web com login e senha VBA
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
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Ter Nov 12, 2013 12:19 pm
Re: Acessar pagina Web com login e senha VBA
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???
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???