webbrowser 怎么模拟点击网页或框架内链接
1个回答
2017-02-02 · 知道合伙人数码行家
huanglenzhi
知道合伙人数码行家
采纳数：117538
获赞数：517176
长期从事计算机组装，维护，网络组建及管理。对计算机硬件、操作系统安装、典型网络设备具有详细认知。
向TA提问 私信TA
关注
![]()
展开全部
// WB:打开网页的TWebBrowser对象,Href:热链地址
//模拟点击TWebBrowser的图片
procedure ImageClick(WB: TWebBrowser; Href: string);
var
i: Word;
Document: IHtmlDocument2;
str: string;
begin
for i := 0 to WB.OleObject.Document.Images.Length - 1 do
begin
Document := WB.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
if Pos(Href, str) <> 0 then
begin
((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end;
//模拟点击TWebBrowser的图片
procedure ImageClick(WB: TWebBrowser; Href: string);
var
i: Word;
Document: IHtmlDocument2;
str: string;
begin
for i := 0 to WB.OleObject.Document.Images.Length - 1 do
begin
Document := WB.Document as IHtmlDocument2;
Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
if Pos(Href, str) <> 0 then
begin
((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
