如何使用vbscript自动登录网站？

Question

我尝试使用脚本自动登录网站，这样我们的员工就不必记住管理员密码了。

Dim IE 
Dim Helem
Set IE =CreateObject("InternetExplorer.Application")  
IE.Visible = 1  
IE.navigate "http://rentalapp.zillow.com/"  
Do While (IE.Busy)   
WScript.Sleep 10  
LoopSet 
Helem = IE.document.getElementByID("formUsername")  
Helem.Value ="username"  
Set Helem =IE.document.getElementByID("formPassword")  
Helem.Value = "password" 
Set Helem = IE.document.Forms(0)  
Helem.Submit

我已经远离我见过的其他帖子，但我一直收到错误说：

Line: 10 
char: 2 Error: 
Object required 
code: 800A01A8 
source: Microsoft VBScript runtime error

我已经研究过这个代码了，它说某个地方有一个错字，但对于我的生活，我无法弄清楚在哪里。

我对vbscript不太熟悉，但是有了这样的功能，我想对它更加熟悉。请帮忙。

Answer 1

Helem = IE.document.getElementByID("formUsername")  
Helem.Value ="username" <= this is line 10

第10行失败：看起来您找不到ID为“formUsername”的元素。

查看页面来源并检查您的ID是否正确。

Answer 2

Helem = IE.document.getElementByID("formUsername")  
==>
Set Helem = IE.document.getElementByID("formUsername")  

稍后在您的代码中。