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

Delphi

[delphi] view plaincopy

1. uses
2. mshtml, ActiveX;
3. //初始加载网易主页
4. procedure TForm1.FormCreate(Sender: TObject);
5. begin
6. Webbrowser1.Navigate(‘http://www.163.com/‘);
7. end;
8. procedure TForm1.Button1Click(Sender: TObject);
9. var
10. I: Integer;
11. Document: IHTMLDocument2;
12. Element: IHTMLElement;
13. Anchors: IHTMLElementCollection;
14. sLink: string;
15. begin
16. //查找网易新闻页面链接
17. sLink := ‘http://news.163.com/‘;
18. Document := Webbrowser1.Document as IHTMLDocument2;
19. if Assigned(Document) then
20. begin
21. Anchors := Document.Get_links;
22. //遍历所有链接
23. for i := 0 to Anchors.length - 1 do
24. begin
25. Element := Anchors.item(i, varempty) as IHTMLElement;
26. //找到指定链接
27. if Assigned(Element) and (UpperCase((Element as IHTMLAnchorElement).href) = UpperCase(sLink)) then
28. begin
29. //执行点击
30. Element.Click;
31. Break;
32. end;
33. end;
34. end;
35. end;

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

[csharp] view plaincopy

1. foreach (HtmlElement element in webBrowser1.Document.Links)
2. {
3. if (element.InnerText == "新闻")
4. {
5. element.InvokeMember("click");
6. break;
7. }
8. }

http://blog.csdn.net/bdmh/article/details/6069485