电脑任务栏消失:WebBrowser表单问题?碰到HTM编辑器如何办?

来源：百度文库编辑：中科新闻网时间：2024/04/29 07:43:29

表单地址如下:
http://bt1xia.com/test/
原代码中根本找不到TEXTAREA,,只是用JS调用HTM编辑器,,这个内容该如何填写?

下面是我写的代码

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 "ttitle"
vTag.Value = "标题内容"
End Select
End If
End If
If UCase(vDoc.All(i).tagName) = "TEXTAREA" Then
Set vTag = vDoc.All(i)
If vTag.Name = "body" Then
vTag.Value = "文章内容"
End If
End If
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "submit" And vTag.Value = "立即发表" Then
vTag.Click
End If
End If
Next i
程序是VB

WebBrowser表单问题?碰到HTM编辑器如何办? WebBrowser控件的问题 VB WebBrowser问题求高手做表单的问题!.完整代码如下(可保存成htm后打开).....谢了 vb的webbrowser浏览器问题 vb中webbrowser的问题 WebBrowser vb 关于新窗口的问题关于WebBrowser的问题-在线等关于vb的webbrowser控件的问题 vb6.0 中webbrowser的问题