想做一个自动提交程序(200分)

现在我想做一个自动提交的程序，出步想用webbrowse，大体是这样，
1、登录一个网站网站的首页是用户名和密码输入，输入用户名和密码提交。
2、进入下一页面是个框架结构的，分左右两个框架，点左面的框架里的菜单的一个功能右机的框架里会调出这个功能的页面，在这个页面里添入一个数据然后提交。
哪们帮帮我？

var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //找到登录用户名的输入框
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //第一个表单提交

{

o :=WebBrowser.oleobject.document.all.item('Login',0); //或者用指定表单名称提交
o.Click; //点击操作，对其它对象也可同样操作
}
end;

去这里看看吧！对你很有用
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420914
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2429833

在51delphi的主页上就有一个《Delphi 7 Web开发与应用》源程序。
你去那下回来看看？

多人接受答案了。