如何用webbrowser自动填写和讯发表文章的内容啊?谢谢了

Question

用webbrowser在和讯自动填表发表文章 就是内容老是填不上.看源代码 头都看晕了,也没什么收获的
我是这样赋值的Dim doc As IHTMLDocument2
Set doc = Web.Document
doc.All.Item("NewEditArticle1:ContentSpaw").Value = 内容提交后内容为空...郁闷啊....看了一天代码了 也没什么进展的 请各位大侠帮我看看...谢谢了先

Answer 1

<iframe id="CE_NewEditArticle1_ContentSpaw_ID_Frame" src="/CuteSoft_Client/CuteEditor/Template.aspx?Referrer=http%3a%2f%2fpost.blog.hexun.com这个我就不提供全了哈" FrameBorder="0" class="CuteEditorFrame" style=""> </iframe><textarea name="NewEditArticle1:ContentSpaw" id="NewEditArticle1:ContentSpaw" rows="14" cols="50" class="CuteEditorTextArea" style="DISPLAY: none; WIDTH: 100%; HEIGHT: 100%"> </textarea>直接给NewEditArticle1:ContentSpaw赋值 没有用....
主要代码就是这个....

Answer 2

WebBrowser1.DocumentgetElementById("CE_NewEditArticle1_ContentSpaw_ID_Frame").Document.execCommand ("Paste")
这样可以把剪切板的内容赋值进去...不过这样就不行了
WebBrowser2.Document.execCommand "SelectAll"
WebBrowser2.Document.execCommand "Copy"
WebBrowser1.DocumentgetElementById("CE_NewEditArticle1_ContentSpaw_ID_Frame").Document.execCommand ("Paste")
WebBrowser2是我要输入的内容 不是存文本格式 包含连接等等html元素顺便问一下 为什么下面的代码就不行了呢?

Answer 3

Dim   document
Set   document   =   WebBrowser1.Document 
document.getElementById("NewEditArticle1:ContentSpaw").value="内容"

Answer 4

Dim       document 
Set       document       =       WebBrowser1.Document   
document.getElementById( "NewEditArticle1:ContentSpaw ").value= "内容 "这样不行啊......赋值后提交后内容为空....

Answer 5

Dim       document 
Set       document       =       WebBrowser1.Document   
document.getElementById( "NewEditArticle1:ContentSpaw ").value= "内容 " 赋值是可以的，那可能是你程序别的地方有问题，要不你可以手功输入看一下提交后内容是不是也为空就明白了