关于 VB提交表单的问题

Question

im 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 "name"
                        vTag.Value = Text1.Text
                    Case "password"
                        vTag.Value = Text2.Text
                End Select
            ElseIf vTag.Type = "submit" Then
                vTag.Click
            End If
        End If
        Next i
我用的这个但是 有时候  测试的时候
For i = 0 To vDoc.All.length - 1有提示   WITH  环境变量错误     错误"424"

Answer 1

没用过，感觉像是对象vDoc.All.length 引用有问题

Answer 2

确保在文档下载完毕再操作！
可以加入判断：
Do 
   If WebBrowser.Busy = False Then Exit Do
   DoEvents
Loop或处理DocumentComplete事件Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)End Sub