Как войти на сайт без использования sendkeys?

Я пытаюсь войти на этот сайт, не используя 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, fire event fuction и т. Д., Но он не работает. Есть ли что-нибудь awy для него без использования sendkeys?

это работает

 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 
Давайте будем гением компьютера.