利用WebBrowser填表求助。

Question

我想编写一个自动登陆51.com的软件。利用webbrowser控件填表的时候，不能够点击登陆。我放了两个text，两个command控件。代码：
Private Sub Command1_Click()
Set Doc = WebBrowser1.Document
Doc.getElementById("passport_51_user").setAttribute "value", Text1.Text
Doc.getElementById("passport_51_password").setAttribute "value", Text2.Text
Doc.getElementById("submit").Click
End SubPrivate Sub Command2_Click()
End
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://www.51.com/"
End Sub不知哪里出错，求高手帮助。

Answer 1

'Doc.getElementById("submit").Click Doc.getElementById("form1").submit

Answer 2

Dim Doc      As IHTMLDocument2
Dim Inputs   As IHTMLElementCollection
Dim PP       As IntegerWebBrowser1.navigate Url  '登录网站Set Doc = WebBrowser1.document
Set Inputs = Doc.All.tags("INPUT")
  For pp = 0 To 50
      If Inputs.Item(pp, pp).id = "你网页源代码中的用户名的ID" Then
         Inputs.Item(pp, pp).Value="你要输入的用户名"
    
      End If
      If Inputs.Item(pp, pp).id = "你网页源代码中的密码的ID" Then
       Inputs.Item(pp, pp).Value="你要输入的密码"
     End If
        If Inputs.Item(pp, pp).id = "你网页源代码中的SUMMIT的ID" Then
      EXIT FOR
     End If
 Next
Inputs.Item(pp, pp).Click这个基本就好用了