Lucas Pires

Ola prezados, Estou tentando desenvolver um programinha no excel, que entra em um site, faz login e entra automático. Boa parte já esta pronto, apenas falta o botão de avançar no login... No caso, é neste site "Banco Bradesco S/A (custodia.bradesco)". Não encontro qual é o cod html para colocar isso no VB. Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Sub Login() Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://bc2.custodia.bradesco/calilogin/login.jsf" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.Navigate sURL oBrowser.Visible = True Do Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.all.param1.Value = "xxxxxxxx" 'login HTMLDoc.all.param2.Value = Range("A78").Value 'senha ???????????????????????????????????????? 'botão "avançar" For Each oHTML_Element In HTMLDoc.getElementsByTagName("input") If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For Next Err_Clear: Resume Next End Sub