Página 1 de 1

Macro para Login em Site

Enviado: 17 Dez 2016 às 20:10
por AndersonM
Bom dia Galera, eu consegui na internet uma macro que estava precisando muito, porém sempre que a macro abre o web site ele solicita senha, alguém pode me ajudar com um código que faz login nesse site aqui:
https://www.cellcard.com.br

Por favor, me ajudem... no caso eu preencho os 3 campos para logar nesse site.

Atenciosamente.

Re: Macro para Login em Site

Enviado: 18 Dez 2016 às 08:21
por alexandrevba
Bom dia!!

Como teste, foi utilizado o IE.
Código: Selecionar todos
Sub AleVBA_3664()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
    With IE
        .Visible = True
        .Navigate ("https://www.cellcard.com.br/index.html")
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
            .Document.getElementById("nome_primario").Focus
            .Document.getElementById("nome_primario").Value = "AleVBA"      '<- Coloque seu usuário aqui
            .Document.getElementById("loja_primaria").Focus
            .Document.getElementById("loja_primaria").Value = "Loja_AleVBA" '<- Coloque a loja aqui
            .Document.getElementById("senha_primaria").Focus
            .Document.getElementById("senha_primaria").Value = "SenhaAqui"  '<- Coloque sua senha aqui
            .Document.All("Submit").Click
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
        Debug.Print .LocationURL
    End With
End Sub
Att

Re: Macro para Login em Site

Enviado: 18 Dez 2016 às 10:04
por AndersonM
Meu amigo, você é fera!! Muito obrigado.