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

/eoknet/blog/item/88ef8de781952723b9382032.html delphi中自动提交表单问题终结者，解决多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(u