delphi中自动提交表单问题终结者.doc

/eoknet/blog/item/88ef8de781952723b9382032.htmldelphi中自动提交表单问题终结者，解决多FRAME网页的表单提交问题某些聊天室是靠在线时间来加分的，我的程序是用来自动登陆某聊天室然后每隔一段时间发一次言以免掉线。这当中需要解决自动提交表单问题，单FRAME的网页的提交问题我已经解决，但是对于多FRAME的，在看了许多大富翁的回答后仍然解决不了，所以想求一帖能够真正解决这个问题。这些方法我试了，都不行：一、procedure TForm1.Button3Click(Sender: TObject);varHtm:olevariant;xh,i,k,Po:integer;t:OleVariant;IsFindPos:integer;addqu,S:String;sfind:integer;begin/ try/ cancel:=false;t := WebBrowser1.Document;htm:=t.all.item(0,varEmpty);for k := 0 to t.all.length - 1 do beginif (uppercase(t.all.item(k).tagName)=INPUT)and(uppercase(t.all.item(k).type)=TEXT)and(uppercase(t.all.item(k).name)=taklmsg) then begint.all.item(k).value:=117;break;end;end;二、/找到登录用户名的输入框/o := WebBrowser1.oleobject.document.documentelement.document.frames.item(Index).document.all.item(username,0);/o.value := TEST;/找到登录密码的输入框/ o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item(LoginPassword,0);/ o.value := TEST/第一个表单提交/ WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit;/WebBrowser1.oleobject.document.Forms.Item(login, 0).submit;1：多个frames的输入，FrameIndex为Frame的序号varo : Olevariant;begin/找到登录用户名的输入框o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item(LoginUserID,0); o.value := TEST;/找到登录密码的输入框o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item(LoginPassword,0); o.value := TEST/第一个表单提交WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit; /或者用指定表单名称提交o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item(Login,0); o.Click; /点击操作，对其它对象也可同样操作end;这种方法，我在用的时候提示说“停用“调用取消”（编译没有问题，执行EXE的时候提示的），这是什么意思，怎么解决 2：晕,少了.WebBrowser1.N