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的with…do语句的用法

Delphi listview高速添加数据

Delphi通过adoquery控件实现sqlserver数据库多结果集的数据打印

Delphi 学习 sql 语句 - select(8): 分组条件

Delphi中sendmessage给一个edit控件发送wm_settext消息

Delphi xe string与tstringbuilder的关系

Delphi控件adsl拨号和断开

如何把 Delphi 自带的内存泄露写到日志

Delphi 上传文件到七牛，纯原生

Delphi截取技巧 lastdelimiter

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

转载请注明出处：木庄网络博客 » delphi Webbrowser中模拟连接点击（非鼠标模拟）