Cannot Login with VBA + Selenium

[bunburyst]

Currently I have used selenium webdriver to login to a website and send text with VBA macro. The problem is that since a few days the code dont work. I think the web code have changed. I have been checking the code of the web page but I can't find the correct one.

Any help is appreciated.

Selenium basic 2.0 Windows 10 Excel 2010 Edge browser

Sub Repsol()

Dim driver As New WebDriver
Set driver = New EdgeDriver
With driver

.Start "edge"
.Get "https://login.repsol.com/es/Landing/AuthnPage?returnUrl=https://www.repsol.com/es_es/"

 With .FindElementByClass("gigya-login-form")

    .FindElementByClass("gigya-input-text").SendKeys "user" 'your user
    .FindElementByClass("gigya-input-password").SendKeys "password" 'your password
    
    
     .FindElementByClass("gigya-input-submit").submit
End With

Application.Wait Now + TimeSerial(0, 0, 10)

.Get "https://www.repsol.com/es_es/aplicaciones/SO/WebEESS/default.aspx?usuario="""
Application.Wait Now + TimeSerial(0, 0, 10)

    
.Get "https://www.repsol.com/SO/WebEESS/Pages/Carburantes/PeticionCarburante/Peticion.aspx"

With .FindElementByClass("tablaContenedora")

    .FindElementById("ctl00_zona1_grdwCarburantes_ctl02_lbltxtCantidad").SendKeys [B7]

     End With
End With

End Sub

 

[Anthony47]

I seem the page declare it's available much before it is really there.
Try adding this block in this position:

'other instructions
.Start "edge"
.Get "https://login.repsol.com/es/Landing/AuthnPage?returnUrl=https://www.repsol.com/es_es/"
'>>>>> ADD THIS BLOCK:
On Error Resume Next
    For I = 1 To 15
        Set GIGYA = .FindElementByClass("gigya-login-form")
        If GIGYA Is Nothing Then
            Debug.Print I, TypeName(GIGYA)
            Application.Wait Now + TimeSerial(0, 0, 1)
        Else
            Exit For
        End If
    Next I
On Error GoTo 0
Debug.Print I, TypeName(GIGYA)
If I > 15 Then
    MsgBox ("Impossible to login, aborted")
    Exit Sub
End If
'<<< END OF BLOCK
 With .FindElementByClass("gigya-login-form")
'continue...

In this way you add additional waits, up to 15 seconds, for the page really available

Also add Dim GIGYA As Object on the declaration area
Try...

 

[bunburyst]

I seem the page declare it's available much before it is really there.
Try adding this block in this position:

Now it works. Thanks a lot. The problem is that, the code did not wait for the "form" to be loaded.
Another thing, i have a doubt about what code I can use to wait for the web to be loaded.

Thanks Antonio.

 

[Anthony47]

Another thing, i have a doubt about what code I can use to wait for the web to be loaded

You don't like the method I used?
Theory says that Selenium commands waits by themselves the end of the operations, but this is quite difficult to guarantee with script based pages (99% of the pages, nowadays).

Thus the metod is search for something that should be there and wait until it is there.

It was the "form" in your case; very often it is a long long table to be completed; in other cases it could ...depend on the page.

Bye

 

[bunburyst]

You don't like the method I used?
Theory says that Selenium commands waits by themselves the end of the operations, but this is quite difficult to guarantee with script based pages (99% of the pages, nowadays).

Thus the metod is search for something that should be there and wait until it is there.

It was the "form" in your case; very often it is a long long table to be completed; in other cases it could ...depend on the page.

Bye

Sorry Antonio, I think I didn't explain myself well. Your code works perfectly, I really appreciate your help.
I was referring to the following commands in my code, where I am using Application.Wait Now, I don't know if there is another way to wait for those other web.

.Get "https://www.repsol.com/es_es/aplicaciones/SO/WebEESS/default.aspx?usuario="""
Application.Wait Now + TimeSerial(0, 0, 10)

Thank you so much.

 

[Anthony47]

Try the same approach I used:

On Error Resume Next
Set ObjectVariable = Nothing
For I=1 to 20        'How much max wait?
  Set ObjectVariable = The Item you look for
  If ObjectVariable is nothing then
      wait 1 second
  else
     exit for
  End if
next I
On Error Goto 0

In this way you will wait only the time it is necessary

Bye