Webrowswerでアナログ接続クリック（マウス以外のシミュレーション）

Delphi
uses mshtml、ActiveX;//最初に網易のホームページのprocedure TForm 1.FormCreateをロードします。begin Webrows er 1.Navigate('http://www.163.com/')end;procedure TForm 1.Button 1 Click（Sender:TObject）；var I:Integer;Dcument：IHTMLDocument 2；Element：IHTM LElement；Anchors：IHTMLEMEntCollection；sLink:string;begin//検索網易ニュースページリンクslink:='http://news.163.com/';Docment：=Webrows er 1.Docment as IHTMLDocument 2；if Asigned(Docment)then begin Anchors:=Dockment.Get_links;//すべてのリンクを巡回してfor i:=0 to Anchors.length-1 do begin Element:=Anchoss.item(i，varempty)as IHT Mlement;指定リンクif Asigned(Element)and(UpperCase(Element as IHTMLAnchorElement)=UpperCase(slink)then begin/実行クリックElement.lick;Break;end;end;end;end;
 
C葃（網易ページ「ニュース」リンクをクリック）

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