有一个网页的填表，它是这样的流程：1.第一个页面，只有submit进入下一页按钮，点击；2、进入第二个页面，填表，有姓名、性别、邮箱，填表完毕后点击submit进入下一页；3，进入第三个页面，填密码，最后点击提交按钮！

我用了判断URL的代码让上面的流程合起来自动填表，就是自动化的意思，从第一步到最后一步都是点击1个按钮就完成，但老是实现不了，不知为什么，请问可以给下主要代码我参考一下吗？或者是可以用其它方法来判断实现吗？谢谢！

非常感谢！不过我代码出现：错误91，对象变量或with块变量未设置。是个填表自动化的问题。流程：1.第一个页面，只有submit进入下一页按钮，点击；2、进入第二个页面，填表，有q1和q2两项， 填表完毕后点击submit提交。

Private Sub WebBrowser6_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim tg5
Dim d5
Dim doc5 As String
Dim doctext
Dim i As Long

Set doctext = WebBrowser6.Document.body.createTextRange()
Set d5 = WebBrowser6.Document
doc5 = doctext.htmltext

For i = 0 To d5.All.length - 1
Set tg5 = d5.All(i)
    If LCase(d5.All(i).tagName) = "input" Or LCase(d5.All(i).tagName) = "select" Then
        If InStr(1, doc5, "开始") > 0 Then
              If tg5.Type = "submit" Then
              tg5.Click
               End If
        End If
        If InStr(1, doc5, "signup/cc/page1") > 0 Then
             If tg5.Type = "radio" Then
                Select Case tg5.Name
                 Case "q1"
                 tg5.Value = "7"
                 Case "q2"
                 tg5.Value = "2"
                End Select
             ElseIf tg5.Type = "submit" Then
                 tg5.Click
            End If
        End If
    End If
Next i
End Sub

请问哪里出问题了？

上面的代码问题我知道错在哪了，现在是以下这个关键问题：
Private Sub Command1_Click()
WebBrowser6.Navigate "

Private Sub Command2_Click()
Dim tg5
Dim d5
Dim doc5 As String
Dim doctext
Dim i As Long


Set doctext = WebBrowser1.Document.body.createTextRange()
Set d5 = WebBrowser1.Document
doc5 = doctext.htmltext

For i = 0 To d5.All.length - 1
Set tg5 = d5.All(i)
    If LCase(d5.All(i).tagName) = "input" Or LCase(d5.All(i).tagName) = "select" Then
        If InStr(1, doc5, "开始") > 0 Then
              If tg5.Type = "submit" Then
              tg5.Click
               End If   
        End If
        If InStr(1, doc5, "signup/page1") > 0 Then
             If tg5.Type = "radio" Then
                Select Case tg5.Name
                 Case "q1"
                 tg5.Value = "7"
                 Case "q2"
                 tg5.Value = "2"
                End Select
             ElseIf tg5.Type = "submit" Then
                 tg5.Click
            End If
        End If
    End If
Next i
End Sub
点击了第1页 的注册按钮后，第二页的填表和按钮就完全不执行了，我觉得If InStr(1, doc5, "开始") > 0 Then 和If InStr(1, doc5, "signup/page1") > 0 Then在这里没有起作用，请问如何修改？