Webbrowser点击没有ID和Name的按钮或链接

本文整理自网络，侵删。

  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 用firedac处理sqlite的日期型

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi中几种程序自我删除的方法

Delphi 判断是否为文件名

Delphi webbrowser控件的事件

Delphi 颜色表

Delphi idhttp访问路由里的web

Delphi使用spcomm没办法触发receivedata

Delphi操作多显示器

Delphi实现抓屏压缩并保存桌面图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Webbrowser点击没有ID和Name的按钮或链接