ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Qui Set 28, 2017 8:26 am

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 » Qua Out 04, 2017 7:55 am

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 » Qui Out 05, 2017 8:36 am

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



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