向各位老师请教：VB自动填写表单中关于textarea控件无法附值的问题

各位老师，我是小菜鸟，今天在试着弄一个VB自动填写表单项时候遇到些问题；INPUTBOX框是可以正常附值的，但是textarea控件却始终无法成功附值，并且提供按扭也出现了问题……

我的VB代码如下所示：

Private Sub Command1_Click()
     WebBrowser2.Document.All("title").Value = "标题测试 "
     WebBrowser2.Document.All.textarea.Value = "内容填充测试"
     WebBrowser2.Document.All("Submit").Click
End Sub

Private Sub Form_Load()
    WebBrowser2.Navigate "http://www.china-over.cn/guestbook.asp?ac=add"
End Sub

网页代码为：

  <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffffff">
    <tr>
      <td height="30" class="adgs">大名：
      <input name="UserName" type="text" id="UserName" maxlength="10" value="116.18.108.*" Readonly style="width:150px;border:1px solid #ccc;"></td>
    </tr>
    <tr>
      <td height="30" class="adgs">主题：
      <input name="title" type="text" id="title" maxlength="15" style="width:400px;border:1px solid #ccc;"></td>
    </tr>
    <tr>
      <td height="15" class="adgs">内容：
      <textarea name="content" cols="30" rows="6" id="content" style="width:400px;border:1px solid #ccc;margin:0;padding:0;height:100px;font-size:12px;line-height:120%;"></textarea></td>
    </tr>
<tr>
      <td height="30" class="adgs">验证码：
      <input name="code" type="text" id="code" size="8" maxlength="5" style="border:1px solid #ccc;"/>
        <img src="Inc/code.asp" border="0" alt="看不清楚请点击刷新验证码" style="cursor : pointer;" onClick="this.src='Inc/code.asp'"/>
</td>
    </tr>
    <tr>
      <td height="30" align="center"><input type="submit" name="Submit" value=" 发布 "></td>
    </tr>
  </table>

在线等待…… --------------------编程问答-------------------- 同样通过 id 来索引对象

WebBrowser2.Document.All("content").Value = "内容填充测试"

--------------------编程问答-------------------- 用innerhtml

WebBrowser2.Document.All("content").innerhtml= "内容填充测试" 

WebBrowser2.Document.getElementsByName("content")(0).innerhtml= "内容填充测试"

WebBrowser2.Document.getElementByID("content").innerhtml= "内容填充测试"

--------------------编程问答-------------------- 感谢上面两位老师的回复，但不知道为什么，我试了下，还是运行不了……继续等待 --------------------编程问答-------------------- 用这个，测试通过

WebBrowser2.Document.getElementsByName("content")(1).innerhtml = "内容填充测试"

--------------------编程问答-------------------- 这个也可以：

WebBrowser1.Document.All("content")(1).innerhtml = "内容填充测试"

但是没法根据id，因为它有两个id相同，理论上不可以的 --------------------编程问答-------------------- 刚刚研究了下其实也是可以的，这样总结下除了索引绝对定位，应该有以下几种方法：

WebBrowser2.Document.All("content")(1).innerhtml = "内容填充测试"

WebBrowser2.Document.getElementsByName("content")(1).innerhtml = "内容填充测试"

WebBrowser2.Document.getElementByID("content").All("content").innerhtml = "内容填充测试"

WebBrowser2.Document.getElementByID("content").All.tags("TEXTAREA")(0).innerhtml = "内容填充测试"

WebBrowser2.Document.getElementByID("content").All("content").innerhtml = "内容填充测试"

WebBrowser2.Document.getElementByID("content").getElementsByTagName("TEXTAREA")(0).innerhtml = "内容填充测试"

补充：VB ,  控件