Consulting

Results 1 to 1 of 1

Thread: Website Auto Login - Type as Hidden - VBA

  1. #1

    Post Website Auto Login - Type as Hidden - VBA

    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.
    Last edited by Aussiebear; 03-11-2025 at 10:55 AM.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •