Webbrowser中模拟连接点击（非鼠标模拟）

uses

  mshtml, ActiveX;



//初始加载网易主页

procedure TForm1.FormCreate(Sender: TObject);

begin

  Webbrowser1.Navigate('http://www.163.com/');

end;



procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

Document: IHTMLDocument2;

Element: IHTMLElement;

Anchors: IHTMLElementCollection;

sLink: string;

begin

   //查找网易新闻页面链接

   sLink := 'http://news.163.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;

View Code