AttSub FazerLoginSite()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
.Navigate ("http://www.trademap.org/Index.aspx")
While .Busy Or .ReadyState <> 4:
DoEvents:
Wend
.Document.All("ctl00_MenuControl_Label_Login").Click
.Document.getElementById("PageContent_Login1_UserName").Focus
.Document.getElementById("PageContent_Login1_UserName").Value = "LOGIN" 'ID DO LOGIN E LOGIN
.Document.getElementById("PageContent_Login1_Password").Focus
.Document.getElementById("PageContent_Login1_Password").Value = "SENHA" 'ID DA SENHA E SENHA
.Document.All("PageContent_Login1_Button").Click 'Id confirmar
While .Busy Or .ReadyState <> 4:
DoEvents:
Wend
Debug.Print .LocationURL
End With
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Acessar site com login e senha em janela pop up com VBA
Acessar site com login e senha em janela pop up com VBA
Bom dia, estou logar em um site com login senha via VBA. O problema é que abre uma janela para digitar o login e senha, dei uma pesquisada mas não achei solução.
Re: Acessar site com login e senha em janela pop up com VBA
Olá linelson,
Aconselho você a migrar para a biblioteca do selenium Basic(Selenium Type Libary) pois esta biblioteca possui uma classe chamada "Alert" onde você pode usar o método "SetCredentials" que atenda sua necessidade de autenticação via pop up.
Abs!
Aconselho você a migrar para a biblioteca do selenium Basic(Selenium Type Libary) pois esta biblioteca possui uma classe chamada "Alert" onde você pode usar o método "SetCredentials" que atenda sua necessidade de autenticação via pop up.
Abs!
Re: Acessar site com login e senha em janela pop up com VBA
O código abaixo deu certo, créditos para Bernardo (Whattsapp):
Public Sub AbreIE()
Dim objIE As InternetExplorer
Dim Email As Variant
Dim Senha As Variant
Dim Link As String
On Error Resume Next
'##### - Insere aqui o email e senha - #####
Email = "xxx@gmail.com.br"
Senha = "123456"
'##### - Insere aqui o email e senha - #####
'Cria o Objeto Internet Explorer
DoEvents
Set objIE = CreateObject("InternetExplorer.Application")
'Indica a página a ser carregada
objIE.Navigate "http://trademap.org/"
Call Temporizador(objIE, 0)
With objIE.Document
'Abre o menu de Login e rastreia o link do Frame do Login
Do While Right(Link, 14) <> "anonymous=true"
.getElementById("ctl00_MenuControl_Label_Login").Click
Call Temporizador(objIE, 2)
Link = .getElementById("iframe_login").src
DoEvents
Loop
'Acessa individualmente a página do Frame do Login
Call Temporizador(objIE, 2)
objIE.Navigate Link
Call Temporizador(objIE, 2)
'Preenche os campos de login e senha
.getElementById("PageContent_Login1_UserName").innerText = Email
.getElementById("PageContent_Login1_Password").innerText = Senha
'Efetua o login e exibe a tela
.all.Item("PageContent_Login1_Button").Click
Call Temporizador(objIE, 1)
objIE.Visible = True
End With
'Limpa a memória
Set objIE = Nothing
'Mensagem de finalização
MsgBox "Procedimento efetuado com sucesso!"
End Sub
Public Sub Temporizador(ByVal objIE As InternetExplorer, ByVal sec As String)
Application.Wait (Now + TimeValue("0:00:0" & sec))
Do While objIE.Busy Or objIE.ReadyState <> 4
DoEvents
Loop
End Sub
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Ter Nov 12, 2013 12:19 pm
Re: Acessar site com login e senha em janela pop up com VBA
Boa noite, pessoal!!
Alguem consegue me ajudar...???
Estou utilizando o codigo acima, porém sem sucesso para o site: http://eaton.scua.com.br:8084/contact/jsp/index.jsp
Alguem consegue me ajudar...???
Estou utilizando o codigo acima, porém sem sucesso para o site: http://eaton.scua.com.br:8084/contact/jsp/index.jsp