么意思博客

name填表: 无name 自动点击: 循环a标签 定位关键字点击：

name填表:

procedure TForm1.Button1Click(Sender: TObject);
var
  text: OleVariant;
  doc: IHTMLDocument2;
  i,len:integer;
begin
 
  web1.Navigate('http://baidu.com');

  text := web1.OleObject.document.all.item( 'word',0);
  text.Value :='123';
end;

无name 自动点击:

procedure TForm1.Button1Click(Sender: TObject);
var
  text: OleVariant;
  doc: IHTMLDocument2;
  i,len:integer;
begin
 web1.Navigate('http://baidu.com');
  text:=Web1.OleObject.Document.getElementsByTagName('input'); //根据 标记 找,也可以根据其他找的
  Len:=text.Length;
  for I:=0 to len-1 do    //无id 无name 自动点击按纽
  begin
    if pos('采集',text.item(i).value)>0 then
    begin
      tag:=0;
      text.item(i).click;
    end;
  end; //无id 无name 自动点击按纽结束
end;

循环a标签 定位关键字点击：

    for i:=0 to web1.OleObject.document.getElementsByTagName('a').length-1 do
    begin
      if web1.OleObject.document.getElementsByTagName('a').item(i).innerhtml='下一章' then
      begin
        web1.OleObject.document.getElementsByTagName('a').item(i).click;
      end;
    end;