VBA Code to login into a Website

[bunburyst]

Hey guys!

I need to have my VBA macro enter the user name and pasword to login a website.
I have read a number of posts related to this topic, tried a number of different methods and still can't get it to work.

Dim HTMLDoc As HTMLDocumentDim MyBrowser As InternetExplorer
 Sub RepsolLogin()






 Dim MyHTML_Element As IHTMLElement
 Dim MyURL As String
 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
 Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
 Set HTMLDoc = MyBrowser.document
 HTMLDoc.all.UserName.Value = "xxx@xxx.com" 'Enter your email id here
 HTMLDoc.all.Password.Value = "xxxx" 'Enter your password here
 For Each MyHTML_Element In HTMLDoc.getElementById("Iniciar sesión")
 If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
 Next


 End Sub

Can anyone have a look an tell me how I must have the macro?
Any help is appreciated. Thanks.

 

[smozgur]

It is loading the form asynchronously, so you need to make sure if the form element is loaded first. After doing that, you can access its input and submit elements.

Please try the following.

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 = "xxx@xxx.com" 'Enter your email id here
    form.all.Password.Value = "password" 'Enter your password here


    form.submit
End Sub

Hope it helps.

Suat

 

[bunburyst]

oh my God,

it worked great thank you for your help!

 

[bunburyst]

Ey my friend, I thought everything worked...

the macro is working for the user name and password but login not working..

 

[smozgur]

Ey my friend, I thought everything worked...

the macro is working for the user name and password but login not working..

Make sense, submit action must be checked with JavaScript, so native form.submit didn't help I guess.

Ok, instead of form.submit, let's try following:

form.getElementsByClassName("gigya-input-submit")(0).click

There is no good attribute to use on the submit (input) element, the easiest one looks to be this. I don't have Windows anywhere near, so I can't check it at the moment. So please let me know. If it doesn't work then we try something else.

Hope it helps.

Suat

 

[bunburyst]

My friend, you are the f... master.

Thank you so much! It works perfectly!

Im so happy!

 

[smozgur]

Im so happy!

Great to hear that!

Suat