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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
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