vb 控制网页 发帖

Private Sub fill()
Dim vDoc, vTag As Object
Dim i As Integer
Set vDoc = brwWebBrowser.Document
Dim nr As String
Dim ti As String
For i = 0 To vDoc.All.Length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Or UCase(vDoc.All(i).tagName) = "TEXTAREA" Or UCase(vDoc.All(i).tagName) = "SELECT" Then '找到input标签
       Set vTag = vDoc.All(i)
          If vTag.Type = "text" Or vTag.Type = "textarea" Or vTag.Type = "select" Then '看看是不是我们需要的
               Select Case vTag.Name
                    Case "ti" '写标题，不同的网页表单，vTag.name的值不同，要查看网页源码并根据实际更改?下同?
                     ti = 这里是你想发帖的标题
                        vTag.Value = ti '       rem ti$ 'body是文本区域的name，从网页源码中查知。
               End Select
           End If
          If vTag.Type = "textarea" Then         '写发言内容，textarea表示文本区域
               Select Case vTag.Name
                    Case "co"                   'body是文本区域的name，从网页源码中查知。
                     nr = 这里是你想要发帖的内容
                        vTag.Value = nr
               End Select
          End If         End Select
       End If
             If vTag.Type = "submit" and vTag.Value = "发表帖子" Then '找到发表按钮。
                 vTag.Click '点击提交了，一切都OK了
             End If
End If
Next i
能在标题中能由vb控制输入，但就是不能在“内容中”输入内容，在  查看—>源文件中已找到vTag.Value的name（查看—>源文件中就一个textarea），可是在asp代码中发现有个textarea的属性为隐藏，当把它设置显示后发现页面上有两个文本框（不算标题的那个），可在查看—>源文件中只发现一个textarea，"<textarea></textarea>"中的内容也是我输入的。可是让vTag.Value的name=他就不行，望解决。