斑竹和热心兄弟请了：）谢谢(100分)

问题1：
procedure TForm1.Button2Click(Sender: TObject);
var
o:Olevariant;
begin
o := WebBrowser1.OleObject.document.all.item('articletitle',0);
o.value := 'test';
o := WebBrowser1.Oleobject.document.all.item('articlecontent',0);
o.value := 'test';
o :=WebBrowser1.oleobject.document.all.item('submit',0);
o.click;

就是一个页面。我利用这个进行自动提交POST
如果NAME=SUBMIT 上面就没问题了。但是如果表单的SUBMIT没有名字怎么来提交？

比如
<input onclick="return clckcntr();" type=submit value="发 表" style="height:20px;background-color:#f3f3f3;border:1 solid black" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#f3f3f3'">

他上面没有NAME。我怎么来提交呢。谢谢：）


问题2：
begin
o := WebBrowser1.OleObject.document.all.item('subject',0);
o.value := 'test';
o := WebBrowser1.Oleobject.document.all.item('name',0);
o.value := 'test';
o := WebBrowser1.Oleobject.document.all.item('note',0);
o.value := '[]'
//这行出错 提示好象VALUE属性不对？如何解决啊
NOTE是一个流言板的TEXTAREA的NAME。谢谢：） 清指教
o :=WebBrowser1.oleobject.document.all.item('B1',0);
o.Click;
end;

先帮你顶一下