请教自动填表 软件

[yuFei]

自动填表软件的过程是不是

1 获得窗口信息
2 获得窗口内编辑框的ID
3 写入

关键



如何完成的

[seilfer2000]

要填什么表？ 如果是EXCEL可以利用DELPHI带的操作EXCEL的空间

[yuFei]

不是 表格的

[laihongbo524]

这么少分，55555........呵呵，不好意思，不给全你，另外的给多点分吧，穷啊
uses mshtml;

procedure TForm1.Button4Click(Sender: TObject);
var
HtmlDoc:IHTMLDocument2;
myitem:Olevariant;
i:integer;
begin
myitem := WebBrowser1.Document;
for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'INPUT' then
begin
if Uppercase(myitem.all.item(i).type)='TEXT' then
begin
if Uppercase(myitem.all.item(i).name)='USERNAME' then myitem.all.item(i).value:='abc123';
end;
end;
end;
end;

[xfpjl]

在向另一个应用程序中的编辑框中添

我可以给个 例程

不过 ++++++++

[yuFei]

我加 分

[yuFei]

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

[laihongbo524]

uses mshtml;

procedure TForm1.Button4Click(Sender: TObject);
var
HtmlDoc:IHTMLDocument2;
myitem:Olevariant;
i:integer;
begin
myitem := WebBrowser1.Document;
for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'SELECT' then // 下拉框选择
begin
if Uppercase(myitem.all.item(i).name)='SEX' then myitem.all.item(i).value:='1';//选择下拉框值为1的
end;
if myitem.all.item(ii).tagName = 'TEXTAREA' then//多行文本框
begin
if Uppercase(myitem.all.item(ii).name)='NOTE' then myitem.all.item(ii).value:=txtnote.Text;
end;
if myitem.all.item(i).tagName = 'INPUT' then
begin
if Uppercase(myitem.all.item(i).type)='TEXT' then
begin
if Uppercase(myitem.all.item(i).name)='USERNAME' then myitem.all.item(i).value:='abc123';
end;
if Uppercase(myitem.all.item(i).type)='RADIO' then
begin
if myitem.all.item(i).value=sex then myitem.all.item(i).checked:=true;
end;
if uppercase(myitem.all.item(i).type)='CHECKBOX' then
begin
if myitem.all.item(i).value='1' then myitem.all.item(i).checked:=checkbox1.Checked;
end;
if Uppercase(myitem.all.item(i).type)='PASSWORD' then
begin
if Uppercase(myitem.all.item(i).name)='PWD' then myitem.all.item(i).value:=txtpwd.Text;
end;
if Uppercase(myitem.all.item(i).type)='BUTTON' then//提交表单
begin
if Uppercase(myitem.all.item(i).name)='SUBMIT' then myitem.all.item(i).click;
end;
end;
end;
end;

[alpha0007]

学习ing

[yuFei]

应用程序中是不是改变

myitem := WebBrowser1.Document;

来获得的

[bottom]

应该是吧

[nzh517]

收藏

[bamfk10231023]

其实,如果网页中的TEXT的NAME如果是随便写的怎么办.
人家不一定 NAME就是用户名>????

[lovefox_zoe]

！！！！！！！！
记住：WebBrowser1一定要先打开一个页面，否则，你的myitem无法获WebBrowser1.Document;
会出现错误。