Hoje segue mais um post sobre vba e internet, avançando sobre o post anterior no qual abria o browser padrão.
Para funcionar é necessário adicionar em referencias a biblioteca “Microsoft Internet Controls“.
Abaixo segue como fazer um login em um site usando VBA, já antecipo que para fazer este login é necessário saber o ID do usuário, ID da senha e do ID botão. Atenção não o Name!
Para conseguir pegar os ID’s você pode clicar com botão direito do mouse usando o Chrome e clicar em Inspecionar Elemento ou usando o IE com botão direito e clicar em exibir código fonte.
Imagem abaixo usando inspeção no chrome, e pegando os Id’s para colocar no código
Segue código site com vba
Sub FazerLoginSite()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo...
.Navigate ("http://excelevba.com.br/download/login_teste.php")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("Ver qual ID do Login no html ").Focus
.Document.getElementById("Ver qual ID do Login no html ").Value = "COLOQUE SEU USUÁRIO AQUI"
.Document.getElementById("Ver qual ID do Password no html").Focus
.Document.getElementById("Ver qual ID do Password no html").Value = "COLOQUE SUA SENHA AQUI"
.Document.All("Verificar qual ID do Botão ").Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With
End Sub
Para facilitar o aprendizado criei uma página simples para teste (“http://excelevba.com.br/download/login_teste.php”) cujo os dados de acesso voce encontra logo abaixo:
Usuario: excelevba
Senha: internet_excelevba