请教自动填表 软件

Question

自动填表软件的过程是不是1 获得窗口信息
2 获得窗口内编辑框的ID
3 写入关键 如何完成的

Answer 1

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

Answer 2

这么少分，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;

Answer 3

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;

Answer 4

应用程序中是不是改变myitem := WebBrowser1.Document;来获得的

Answer 5

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

Answer 6

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