1,593
社区成员
发帖
与我相关
我的任务
分享使用WebBrowser如何点击这样的图片?
使用WebBrowser打开,需要模拟点击指定图片x=50,y=10的位置(可能要点有name的,也可能点击没有name的).要求程序可以最小化也能点击到,点击后WebBrowser显示你点击图片的坐标.
另外两个图片在网页内的位置不是固定的.
请高手帮忙分析!
要点击图片测试地址
另外两个图片在网页内的位置不是固定的.
请高手帮忙分析!
要点击图片测试地址
...全文
请发表友善的回复…
发表回复
dongmei757 2010-06-27
- 打赏
- 举报
没有结果就结帖了
dongmei757 2010-06-26
- 打赏
- 举报
感谢LoveMit的回复,不过这样的点击不能传递被点击的X,Y值
Mit1208 2010-06-26
- 打赏
- 举报
procedure Tform1.buttonclick();
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( 'per_btn_zc.gif',str) <> 0 then
begin
((Doc.Images.Item(i,0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end;
试试这个代码.可以点击图片的按钮.
把'per_btn_zc.gif'这个改为你要点击的图片就行了
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( 'per_btn_zc.gif',str) <> 0 then
begin
((Doc.Images.Item(i,0) as IHTMLImgElement) as IHTMLElement).Click;
end;
end;
end;
试试这个代码.可以点击图片的按钮.
把'per_btn_zc.gif'这个改为你要点击的图片就行了
xjwy 2010-06-26
- 打赏
- 举报
不知，帮你顶
dongmei757 2010-06-26
- 打赏
- 举报
年前不知道会不会有答案
devhp 2010-06-24
- 打赏
- 举报
再同你頂一把
devhp 2010-06-22
- 打赏
- 举报
幫你頂上去
