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

现在的位置: 首页 > 综合 > 正文

2013年10月05日 ⁄ 综合 ⁄ 共 1136字 ⁄ 字号小中大 ⁄ 评论关闭

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

抱歉!评论已关闭.

学步园