如何login到一个网站，而不使用sendkeys？

我试图login到这个网站，而不使用sendkeys https://terranovaeng.sienge.com.br/sienge/但是，似乎这个网站要我input我的login名和密码。 这是我的代码：

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，火灾事件function等，但它不工作。 有没有使用sendkeys的任何awy？

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