如何在我的程序中实现自动填IE表的功能呢？？？(200分)

我用IE连接到某个主页的表格中，而我自己的程序想实现自动填IE表的功能。
应该如何实现？

填充页面中的Edit等的值
uses mshtml

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;

我不想用TWebBrowser控件，只想直接控制IE。

我也想知道[]

　　表单自己填


　　AI RoboForm


　　软件简介：上网冲浪的时候肯定会遇到一些论坛要求我们输入用户名、密码、信箱之类的资料进行注册，这样才可以正常登录论坛，但是重复输入这些信息是否让你觉得很繁琐呢？我们可以用AI RoboForm帮我们自动完成表单的填写操作。在安装AI RoboForm的时候根据向导提示，你先创建一个用户并且输入一些个人信息，接着填写用户名、密码、密码提示问题、密码提示答案和联系信箱。完成这些设置之后，我们就可以用它来自动注册用户了。这时打开IE浏览器，你会发现在工具栏中多出了一排AI RoboForm生成的按钮，只要页面中出现注册信息窗口，那么程序就会自动弹出填表窗口，此时点击窗口中的“填表”按钮就可以把设置好的各种信息填写到对应的项目中(如图2)。


　　下载地址：http://sq4.onlinedown.net/down/AiRoboForm.exe

我需要自己写一个填表的程序，怎样才能访问ie呢

我的意思也是这样。

先写到注册表
HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt
下例如：
“阿三”IE的表单下右键就出现阿三了！
默认值“D:/Script/阿三.htm”
“阿三”下建Contexts是DWORD型，值是16进制的4，表示网页中的form类型
D:/Script/阿三.htm的内容是个JS脚本
<SCRIPT LANGUAGE="JavaScript" defer>
var parentwin=external.menuArguments;
var doc=parentwin.document;
var sel=doc.selection;
var rng=sel.createRange();
if (doc.activeElement.type=="text"||doc.activeElement.type=="textarea"||doc.activeElement.type=="password")
rng.text="阿三的内容";
</SCRIPT>
//rng.text="阿三的内容";这里就是填写进去的内容了！
我以前也写了一个，由于工作原因那个程序没有写完善，不过也能用了！[]！
有什么问题再问我吧！

突然发现跟楼主问题的意思不是一个意思啊！[]对不起啦！

关注！！！！！！！！！！！！

连接一个正在运行的IE:
http://support.microsoft.com/default.aspx?scid=kb;en-us;176792