关于网页自动登入问题
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
显然，单击在先，填密码框在后，单击时密码框还未填，故提示“用户名或密码不能为空”！