Logging in via Automation

[mario92]

Hi

I've been trying for a while now and can't seem to get it. I think this would be easy for most of you

First Trust

Visit First Trust for investment products and economic and investment insight....

www.ftportfolios.com

i want to automate logging into this website which include entering user/password and also clicking the login button.
I've tried the following and many other type variations of with no success

'ie.document.getElementsByClassName("small ValidatorHighlight").Value = "xxxxxxx" 'Find by class
ie.document.getElementsByid("ContenPlaceHolder1_Login1_txtLoginName").Value = "xxxxxxx" 'Find by id

anyone want to take a crack at it

 

[Norie]

Can you post the rest of the code?

 

[mario92]

Can you post the rest of the code?

Sub ClickIt()

Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object

Set ie = New InternetExplorerMedium

ie.Visible = True
ie.navigate "First Trust"



Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE


'''''''''''''''''''below is the part i can't figure out''''''''''''''''''''''''''''''''''''''''

'ie.document.getElementsByClassName("small ValidatorHighlight").Value = "mari92" 'Find by class
ie.document.getElementsByid("ContenPlaceHolder1_Login1_txtLoginName").Value = "mari92" 'Find by class
ie.document.getElementById("form1").Click

ie.document.getElementById("onsubmit").Click

End Sub

 

[John_w]

This requires a reference to MS HTML Object Library.

    Dim HTMLdoc As HTMLDocument
    Dim inputElem As HTMLInputElement

    Set HTMLdoc = IE.document
    Set inputElem = HTMLdoc.getElementById("ContentPlaceHolder1_Login1_txtLoginName")
    inputElem.Value = "USER1234"
    
    Set inputElem = HTMLdoc.getElementById("ContentPlaceHolder1_Login1_txtPassword")
    inputElem.Value = "PASSWORD1234"
            
    Set inputElem = HTMLdoc.getElementById("ContentPlaceHolder1_Login1_btnLogin")
    inputElem.Click

 

[mario92]

This requires a reference to MS HTML Object Library.

    Dim HTMLdoc As HTMLDocument
    Dim inputElem As HTMLInputElement

    Set HTMLdoc = IE.document
    Set inputElem = HTMLdoc.getElementById("ContentPlaceHolder1_Login1_txtLoginName")
    inputElem.Value = "USER1234"
   
    Set inputElem = HTMLdoc.getElementById("ContentPlaceHolder1_Login1_txtPassword")
    inputElem.Value = "PASSWORD1234"
           
    Set inputElem = HTMLdoc.getElementById("ContentPlaceHolder1_Login1_btnLogin")
    inputElem.Click

thanks so much, it worked