uses ActiveX, ComObj, MSHTML


Procedure ButtonClinkByText(Wbr:TWebBrowser); //比如QQ邮箱登陆的那个按钮
var
len,I:integer;
item:OleVariant;
begin
item:=Wbr.OleObject.Document.getElementsByTagName('input'); //根据 标记 找,也可以根据其他找的
Len:=item.Length;
for I:=0 to len-1 do
begin
if pos('登陆',item.item(i).value)>0 then
begin
item.item(i).click;
end;
end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
ButtonClinkByText(WebBrowser1);
end;