自动提交表单问题终结者，解决多FRAME网页的表单提交问题！！！！(25分)

某些聊天室是靠在线时间来加分的，我的程序是用来自动登陆某聊天室然后每隔一段时间发一次言以免掉线。
这当中需要解决自动提交表单问题，单FRAME的网页的提交问题我已经解决，但是对于多FRAME
的，在看了许多大富翁的回答后仍然解决不了，所以想求一帖能够真正解决这个问题。
这些方法我试了，都不行：
一、
procedure TForm1.Button3Click(Sender: TObject);
var
Htmlevariant;
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 begin
if (uppercase(t.all.item(k).tagName)='INPUT')and(uppercase(t.all.item(k).type)='TEXT')and(uppercase(t.all.item(k).name)='taklmsg') then begin
t.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;

多个frames的输入，FrameIndex为Frame的序号

　

var
o : 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的时候提示的），这是什么意思，怎么解决

晕,少了..WebBrowser1.Navigate('你要注册的网址')........

to abtong :仔细看看再回答

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

接受答案了.