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