如何递交textarea中的内容 ？

Question

部分代码如下：For i = 0 To vDoc.All.length - 1 '搜索全部文档
  
  If UCase(vDoc.All(i).tagName) = "textarea" Then vTag.Value = "这里内容递交不出"
  If UCase(vDoc.All(i).tagName) = "INPUT" Then
  Set vTag = vDoc.All(i)
      If vTag.Type = "text" Then vTag.Value = Text7.Text
      If vTag.Type = "submit" Then
     
          If vTag.Name = "replysubmit" Then vTag.Click
          End If
          
 End If
  
Next i
html中关于textarea的源码：
<textarea rows="7" name="message" style="width: 80%" onKeyDown="javascript: ctlent();" tabindex="2"></textarea>我上面的代码之所以发送不出，是不是 由于textarea没有Value的原因？该怎么解决呢？

Answer 1

要看那个html的源码了,不一定的If vTag.Type = "submit" Then
     
          If vTag.Name = "replysubmit" Then vTag.Click
关键是name的这个呢

Answer 2

to 楼上朋友replysubmit是可以发送的按照我的源码，发送了以后，网站提示：“没有输入回贴内容，请返回”
说明textarea的内容没有，

Answer 3

如果你用的是webbrowser的话很简单的set ttt=webbrowser1.document.getElementsByName("message")
ttt.innerText="sdlkjafjlk;asfjlk"vTag.Value --------->换成innertext,呵呵,忘了说了

Answer 4

调试出现“对象不支持此属性或方法”ttt.innerText
麻烦大大再帮下

Answer 5

Private Sub Command1_Click()
Set ttt = WebBrowser1.Document.getElementsBytagName("textarea")
ttt(0).innerText = "asdfdas"
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://localhost/website/textareatry.htm"
End Sub绝对是成功的

Answer 6

郁闷，还是发不出去 liuxiaoyi666(兔子) 大大，可以加QQ指导下吗？QQ：61551