在頁面中找到某個圖片的名稱後按下滑鼠左鍵
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;
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;
全站熱搜
留言列表