自动填充网页的问题，请大侠赐教！

Question

原代码如下：标题　<input type="text" name="title" maxlength="60" size="50" value="" class="INPUT1">内容　<textarea name="detail" cols="70" rows="15"></textarea>
      <input type="hidden" name="HTML">我用的代码只是可以填充标题，总是填充不了textarea ，是不是因为下面还有个隐藏的input的问题我用的代码如下：On Error Resume Next '出错后继续
        Set vDoc = WebBrowser1.Document
        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"  Then     
                        Select Case vTag.Name 
                    Case "title"
                        vTag.Value = "123456"
                        End Select
                    End If
                   If vTag.Type = "textarea" Then        
                        Select Case vTag.Name
                    Case "detail"                 
                    vTag.Value = "abcdefg"
                    End Select
                    End If
End If
        Next
请大侠赐教！

Answer 1

textarea的tagName不是input而是textarea，改称下面这样就可以了：    On Error Resume Next '出错后继续
    Set vDoc = WebBrowser1.Document
    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" Then
                Select Case vTag.Name
                    Case "title"
                        vTag.Value = "123456"
                End Select
            End If
            If vTag.Type = "textarea" Then
                Select Case vTag.Name
                    Case "detail"
                        vTag.Value = "abcdefg"
                End Select
            End If
        ElseIf UCase(vDoc.All(i).tagName) = "TEXTAREA" Then
            Set vTag = vDoc.All(i)
            If vTag.Name = "detail" Then
                vTag.Value = "TEXTAREA的内容"
            End If
        End If
    Next