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

Delphi

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;

C#（点击网易页面“新闻”链接）

foreach (HtmlElement element in webBrowser1.Document.Links)
{
    if (element.InnerText == "新闻")
    {
        element.InvokeMember("click");
        break;
    }
}