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

Acessar site com login e senha em janela pop up com 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.
linelson
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Sex Dez 26, 2014 10:19 am

Acessar site com login e senha em janela pop up com VBA

Mensagem por linelson »

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.

Sub 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
Att


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.


Peterson
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sáb Jun 24, 2017 2:34 pm

Re: Acessar site com login e senha em janela pop up com VBA

Mensagem por Peterson »

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!


linelson
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Sex Dez 26, 2014 10:19 am

Re: Acessar site com login e senha em janela pop up com VBA

Mensagem por linelson »

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


Felipe Spada
Acabou de chegar
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

Mensagem por Felipe Spada »

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


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