Este fórum está sendo desativado

[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.

[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

[AndersonM]

Meu amigo, você é fera!! Muito obrigado.