关于网页自动登入有关问题

关于网页自动登入问题
Private Sub Command1_Click()
  Dim obj As Object
  Set obj = WebBrowser1.Document.getElementsByTagName("input")
  For i = 0 To obj.length - 1
  If obj(i).Name = "tb用户名" Then
  obj(i).Value = "1个点"
  ElseIf obj(i).Name = "tb密码" Then
  obj(i).Value = "000000"
  ElseIf obj(i).Name = "ImageButton1" Then
  obj(i).Click
  End If
  Next
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://house.gxsky.com/ershoufang/Default.aspx"
End Sub


为什么会提示“用户名或密码不能为空”呢 ？纳闷！！

[解决办法]
If obj(i).Name = "tb用户名" Then-----此时i=8
ElseIf obj(i).Name = "ImageButton1" Then---此时 i=9
ElseIf obj(i).Name = "tb密码" Then 此时 i=10
显然，单击在先，填密码框在后，单击时密码框还未填，故提示“用户名或密码不能为空”！