センドキーを使わずにウェブサイトにログインするには？

Question

私はsendkeysを使わずにこのウェブサイトにログインしようとしています https://terranovaeng.sienge.com.br/sienge/ しかし、このウェブサイトは私のログインとパスワードを入力したいと思うようです。私が使用してしようとして

Dim Usuário As String 
    Dim Login As String 

    Usuário = "My User" 
    Password = "My password" 

'OPEN INTERNET EXPLORER 
Set IE = CreateObject("InternetExplorer.Application") 
IE.Visible = True 


'NAVIGATE TO PAGE 
    IE.Navigate "https://terranovaeng.sienge.com.br/sienge/" 
    'IDENTIFICA SE O SIENGE FOI TOTALMENTE CARREGADO 
    While IE.ReadyState <> READYSTATE_COMPLETE 
    Wend 
    sng = Timer 
     Do While sng + 5 > Timer 
     Loop 

    'SEND MY USER NAME 
    IE.Document.getElementById("linkslogin").Focus 
    SendKeys “Usuário” 
    SendKeys "{tab}", True 
    'IDENTIFICA SE O SIENGE FOI TOTALMENTE CARREGADO 
    While IE.ReadyState <> READYSTATE_COMPLETE 
    Wend 
    sng = Timer 
     Do While sng + 3 > Timer 
     Loop 

    'SEND MY PASSWORD 
    SendKeys “Login” 
    SendKeys "{tab}", True 
    'IDENTIFICA SE O SIENGE FOI TOTALMENTE CARREGADO 
    While IE.ReadyState <> READYSTATE_COMPLETE 
    Wend 
    sng = Timer 
     Do While sng + 3 > Timer 
     Loop 

    'CLICK EM ENTRAR 
    IE.Document.all("pbEnviar").form.all("pbEnviar").Click 
    While IE.ReadyState <> READYSTATE_COMPLETE 
    Wend 
    sng = Timer 
     Do While sng + 10 > Timer 
     Loop 


End sub 

：ようにgetElementByIdを、getelementbyclassname、火災イベントのfuctionとしたが、それは働いていない は、ここに私のコードです。 sendkeysを使用しないと、それにはどんなことがありますか？

Answer 1

これは

ie.Document.getElementsByTagName("input")(2).Value = "username" 
ie.Document.getElementsByTagName("input")(3).Value = "password" 
ie.Document.getElementsByTagName("input")(5).Click 

を働くか、このような

dim aaa as object 
set aaa = ie.Document.getElementsByTagName("input") 

aaa(2).Value = "username" 
aaa(3).Value = "password" 
aaa(5).Click