vb 网页自动填表并提交遇到问题了...

Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer

Set vDoc = WebBrowser1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
    If UCase(vDoc.All(i).tagName) = "INPUT" Then
        Set vTag = vDoc.All(i)
        If vTag.Type = "text" Or vTag.Type = "password" Then
            List1.AddItem vTag.Name
            Select Case vTag.Name
            Case "userLogin.userName"                                       '会员名
                vTag.Value = "13659062523"
            Case "userLogin.userPassword"                                   '密码
                vTag.Value = "123456"
            Case vcode                                                      '验证码
                vTag.Value = Trim(Text1.Text)
            Case "btnSubmit"                                                '登陆按钮
                vTag.Click
            End Select
        End If
    End If
Next

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "https://i.kabrita.com.cn/gotoLogin.do"
End Sub

问题就是 能自动填表 不能提交,哪里有问题,谢谢!

你的代码不能保证click在填表以后被触发

你得把click的代码单独写，放在后面