VBA para hacer login en página web
A tod@s,
Tengo la siguiente macro con la que tratar de hacer login en una web:
Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub RepsolLogin()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
Dim form As HTMLFormElement
MyURL = "https://login.repsol.com/es/Landing/AuthnPage?returnUrl=https://www.repsol.com/es_es/"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
DoEvents
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
Do While HTMLDoc.getElementById("gigya-login-form") Is Nothing
DoEvents
Loop
Set form = HTMLDoc.getElementById("gigya-login-form")
form.all.UserName.Value = "[email protected]" 'Enter your email id here
form.all.Password.Value = "xxxxx" 'Enter your password here
form.submit
End SubEl caso es que inserta correctamente los campos de usuario y password, incluso aparentemente hace el inicio de sesión, pero no me loguea. En vez de eso me lleva a la pagina inicial de repsol como si no hubiera hecho absolutamente nada, creo que el fallo está en el submit.
¿Alguien puede ayudarme?
1 respuesta
Respuesta de Abraham Valencia
1

Comentario borrado por el autor - zelarra errona
Comentario borrado por el autor - zelarra errona
¿Podrías colgar el ejemplo completo? ¡Gracias! - zelarra errona