var i:Word; Doc:IHtmlDocument2; str:string; begin for i:=0 to WebBrowser1.OleObject.Document.Images.Length - 1 do begin Doc:=WebBrowser1.Document as IHtmlDocument2; Str:=(Doc.Images.Item(i,0) as IHTMLImgElement).href; if Pos( 'image.gif',str) <> 0 then //这里image.gif为点击的图片 begin ((Doc.Images.Item(i,0) as IHTMLImgElement) as IHTMLElement).Click; end; end; end;
光只知道直接要代码,才给这一点分,诚意何在。
var
i:Word;
Doc:IHtmlDocument2;
str:string;
begin
for i:=0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Doc:=WebBrowser1.Document as IHtmlDocument2;
Str:=(Doc.Images.Item(i,0) as IHTMLImgElement).href;
if Pos( 'image.gif',str) <> 0 then //这里image.gif为点击的图片
begin
((Doc.Images.Item(i,0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end;