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

《delphi中自动提交表单问题终结者》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、http://hi.baidu.com/eoknet/blog/item/88ef8de781952723b9382032.htmldelphi中自动提交表单问题终结者，解决多FRAME网页的表单提交问题某些聊天室是靠在线时间来加分的，我的程序是用来自动登陆某聊天室然后每隔一段时间发一次言以免掉线。这当中需要解决自动提交表单问题，单FRAME的网页的提交问题我已经解决，但是对于多FRAME的，在看了许多大富翁的回答后仍然解决不了，所以想求一帖能够真正解决这个问题。这些方法我试了，都不行：一、procedureTForm1.Button3

2、Click(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);fork:=0tot.all.length-1dobeginif(uppercase(t.all.item(k).tagName)='INPUT')a

3、nd(uppercase(t.all.item(k).type)='TEXT')and(uppercase(t.all.item(k).name)='taklmsg')thenbegint.all.item(k).value:='117';break;end;end;二、//找到登录用户名的输入框//o:=WebBrowser1.oleobject.document.documentelement.document.frames.item(Index).document.all.item('username',0);//o.value:

4、='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).

5、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';/

6、/找到登录密码的输入框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;{//或者用指定

7、表单名称提交o:=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);o.Click;//点击操作，对其它对象也可同样操作}end;这种方法，我在用的时候提示说“停用“调用取消””（编译没有问题，执行EXE的时候提示的），这是什么意思，怎么解决2：晕,少了..WebBrowser1.Navigate('你要注册的网址')........3：toabtong:仔细看看再4：我想

8、终结这个帖子，不过上面两位老兄实在是不值我的份数啊。哪位大哥随便说点稍微有道理的让我把分散了吧。5：接受答案了.