在頁面中找到某個圖片的名稱後按下滑鼠左鍵

for i := 0 to WebBrowser1.OleObject.Document.All.Tags('IMG').length - 1 do begin
fname := WebBrowser1.OleObject.Document.All.Tags('IMG').Item(i).Href;
if(pos('xxxxxxx.gif', fname) > 0)then begin
WebBrowser1.OleObject.Document.All.Tags('IMG').Item(i).click;
end;
end;

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()