delphi Webbrowser中模拟连接点击(非鼠标模拟)


本文整理自网络,侵删。

 
uses
  mshtml, ActiveX;

//初始加载主页
procedure TForm1.FormCreate(Sender: TObject);
begin
  Webbrowser1.Navigate('http://www.hao828.com/');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Document: IHTMLDocument2;
Element: IHTMLElement;
Anchors: IHTMLElementCollection;
sLink: string;
begin
   //查找页面链接
   sLink := 'http://www.hao828.com/';
   Document := Webbrowser1.Document as IHTMLDocument2;
   if Assigned(Document) then
   begin
      Anchors := Document.Get_links;
      //遍历所有链接
      for i := 0 to Anchors.length - 1 do
      begin
         Element := Anchors.item(i, varempty) as IHTMLElement;
         //找到指定链接
         if Assigned(Element) and (UpperCase((Element as IHTMLAnchorElement).href) = UpperCase(sLink)) then
        begin
           //执行点击
           Element.Click;
           Break;
        end;
      end;
   end;
end;

相关阅读 >>

Delphi 内存管理[2-3]

Delphi 调用浏览文件夹 selectdirectory

Delphi datetimepicker控件日期格式

Delphi 连接 ssl tls 1.2

Delphi 自动把combobox控件的内容里没有的内容加入列表中

Delphi image1 图像旋转90

Delphi 通过窗口特定标题锁定窗口

Delphi版的base64转换函数(修改版)

firemonkey使用android的路径信息

Delphi中updown组件的使用方法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...