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 获取网卡信息(支持多网卡)

Delphi的initialization和finalization

Delphi里实现对图片base64编码解码

Delphi 判断文本文件是否utf-8编码

Delphi xe 可用的md5算法

Delphi实时监视应用程序内存使用量

Delphi tstringlist stringlist的特殊用法

Delphi 实现php的urlencode编码效果

Delphi实现票据精确打印

Delphi滚动窗口标题

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

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