procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to wb1.OleObject.document.getElementsByTagName('a').length-1 do
begin
if wb1.OleObject.document.getElementsByTagName('a').item(i).innerhtml='唯一关键字1' then
begin
memo1.Lines.Add(wb1.OleObject.document.getElementsByTagName('a').item(i+1).innerhtml);
if wb1.OleObject.document.getElementsByTagName('a').item(i+1).innerhtml<>'唯一关键字2'then
wb1.OleObject.document.getElementsByTagName('a').item(i+1).click;
end;
if wb1.OleObject.document.getElementsByTagName('a').item(i).innerhtml='唯一关键字2' then
begin
memo1.Lines.Add(wb1.OleObject.document.getElementsByTagName('a').item(i-1).innerhtml);
if wb1.OleObject.document.getElementsByTagName('a').item(i-1).innerhtml<>'唯一关键字1'then
begin
wb1.OleObject.document.getElementsByTagName('a').item(i-1).click;
break;
end;
end;
end;
end;
以上代码基本实现了无name和无id的自动点击。