怎样实现自动填写用户名与密码并自动点击提交按钮(200分)

我是在delphi7中用WebBrowser控件
想实现自动填写用户名与密码并自动点击提交按钮
如何实现？
另：还是用别的控件好呢？

为什么要那么做呢？
详细说明一下

我想做个方便找工作的程序
如在www.51job.com
程序自动登录(自动填写用户名与密码并自动点击提交按钮)并自动找出 北京的 软件方面的 或 北京的 硬件方面的 职位

想通过写这个程序了解Internet/TCPIP编程
能不能介绍这方面的书？

利用Delphi的Olevariant类型

单个frames的输入

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;


　

多个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;

FrameIndex为Frame的序号

Frame的序号 是什么？ 能举个具体例子么？ 谢谢 我很菜[]