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;
    }
}