Website Auto Login - Type as Hidden - VBA

[excely]

Hi guys,


Im trying to figure out how to have excel login to a particular website via VBA. Currently the code I have works for other websites but this particular site has username/password field types as 'hidden' which I believe is the issue. Here is some of the code I currently have that is working:

Sub Login ()


Dim ieApp As InternetExplorer
 Dim ieDoc As Object
 Dim ieTable As Object
 Dim clip As DataObject


 Set ieApp = New InternetExplorer
ieApp.Visible = True


 ieApp.Navigate "ANY WEBSITE URL"
 Do While ieApp.Busy: DoEvents: Loop
 Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop


Set ieDoc = ieApp.Document


 With ieDoc.forms(1)
 .UserName.Value = "12345"
 .Password.Value = "ABCD"  
 .submit
 End With


 ieApp.Quit
Set ieApp = Nothing


End Sub

Here is the website inspect element that I am having issues getting the code to work with:


User Name:

input name="usernameDisplay" style="width: 90px;" onkeypress="return submitenter(event)" type="text" maxlength="50" value=" "
input name="username" type="hidden"

Password:

input name="password" style="width: 90px;" onkeypress="return submitenter(event)" onfocus="this.select()" type="password" maxlength="50"
input name="login-form-type" type="hidden" value="pwd"

Sign-In Button:

img id="view:_id10" style="border: currentColor; border-image: none;" src="/images/en/signinbutton.gif"

I have tried changing the username.value and password.value to something like this but still doesn't work:

ieApp.Document.getElementById ("input type='text' name='usernameDisplay value=' ' ")    
 Application.SendKeys "12345"                  
    ieApp.Document.getElementById("input type='password' name='password'").Click
    Application.SendKeys "ABCD"
          ieApp.Document.getElementById("view:_id10").Click

Any help would be appreciated. Thanks.

 

[excely]

also tried different variations of the code like this which doesnt work either.. the code to click sign in works just cant get the code to input the login/password info

ieApp.Document.getElementById ("input type='text' name='usernameDisplay value='12345' ")     
        
    ieApp.Document.getElementById("input type='password' name='password'").Value = "ABCD"
          ieApp.Document.getElementById("view:_id10").Click

 

[excely]

solved it! for those that are curious:

For Each inputField In inputFields
        If inputField.getAttribute("name") = "usernameDisplay" Then
            inputField.Value = "12345"
        ElseIf inputField.getAttribute("name") = "password" Then
            inputField.Value = "ABCD"
        End If
    Next inputField
    IE.Document.getElementById("view:_id10").Click