本文整理自网络，侵删。
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; 相关阅读 >>
Delphi richedit memo1支持中文搜索、向上查找、区分大小写
Delphi datasnap 的http 调用返回json
更多相关阅读请进入《Delphi》频道 >>
