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

时间：2015-11-28 00:56:26 阅读：261 评论：0 收藏：0 [点我收藏+]

标签：

Delphi

[delphi] view plain copy

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#（点击网易页面“新闻”链接）

[csharp] view plain copy

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

标签：

原文地址：http://www.cnblogs.com/findumars/p/5001968.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行