请教论坛自动填写表单问题

Question

<textarea class="autosave" name="message" id="e_textarea" prompt="post_message"  tabindex="1" class="txt" style="height:300px"></textarea>上面是网页的HTML代码，，，，，用VB怎么实现自动填写表单啊，，，
请高手指点，，，谢谢

Answer 1

Dim i     As Integer
          Dim vDoc     As Object
          Dim vTag     As Object
          Set vDoc = WebBrowser1.Document
          For i = 0 To vDoc.All.length - 1
                  If UCase(vDoc.All(i).tagName) = "TEXTAREA" Then
                            Debug.Print vDoc.All(i).Type
                          Set vTag = vDoc.All(i)
                          If vTag.Type = "textarea" Then
                                  Select Case vTag.Name
                                          Case "message"
                                                  vTag.Value = "************" 
                                  End Select
                          End If
                  End If
          Next i这样都无法搞定~！！！纳闷了。

Answer 2

WebBrowser1.Document.body.all("e_textarea").value = "xxxxxxx"

Answer 3

WebBrowser1.document.getElementById("e_textarea").value = "a"

Answer 4

class="autosave" 我知道是这个问题了，这个有自动保存功能，只能自动填写一次，，，，无法实现第二次自动填写，，，有办法实现吗？

Answer 5

WebBrowser1.document.getElementById("e_textarea").innerHTML= "a"

Answer 6

'调用编辑器它自己的方法写内容
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim oDoc As HTMLDocument
    Set oDoc = pDisp.Document
        
    Dim oTxt As HTMLTextAreaElement
    Set oTxt = oDoc.getElementById("e_textarea")
    
    If oTxt Is Nothing Then Exit Sub
    
    oDoc.parentWindow.execScript "writeEditorContents(""hello world!"");"
End Sub