線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2910
推到 Plurk!
推到 Facebook!

如何點擊網頁上用圖案做的按鈕?

答題得分者是:washare
ykh8569
一般會員


發表:7
回覆:10
積分:3
註冊:2005-08-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-12-31 14:03:15 IP:218.163.xxx.xxx 訂閱
各位大大:
如何點擊網頁上用圖案做的按鈕?
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-01-05 09:59:54 IP:60.248.xxx.xxx 訂閱
您想用什麼點擊? 控制滑鼠幫您點擊? 還是程式載入後,由程式幫您點擊?
請把您的問題描述的再清楚一點
------
價值的展現,來自於你用哪一個角度來看待它!!
ykh8569
一般會員


發表:7
回覆:10
積分:3
註冊:2005-08-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-01-05 16:12:33 IP:218.163.xxx.xxx 訂閱
抱歉沒說清楚
我是要用webbroser開起
網頁後再點擊此網頁上的按鈕,但此按鈕用 檢視原始碼 方式去看時只看到圖案的連結?
不知要用什麼方法點擊才有作用?

===================引 用 careychen 文 章===================
您想用什麼點擊? 控制滑鼠幫您點擊? 還是程式載入後,由程式幫您點擊?
請把您的問題描述的再清楚一點
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-01-05 16:34:03 IP:60.248.xxx.xxx 訂閱
那可以看一下小弟的拙作

[發表] 懶惰鬼自動登入器 - (利用 Delphi 控制網頁的 Demo)

===================引 用 ykh8569 文 章===================
抱歉沒說清楚
我是要用webbroser開起
網頁後再點擊此網頁上的按鈕,但此按鈕用 檢視原始碼 方式去看時只看到圖案的連結?
不知要用什麼方法點擊才有作用?

===================引 用 careychen 文 章===================
您想用什麼點擊? 控制滑鼠幫您點擊? 還是程式載入後,由程式幫您點擊?
請把您的問題描述的再清楚一點
------
價值的展現,來自於你用哪一個角度來看待它!!
ykh8569
一般會員


發表:7
回覆:10
積分:3
註冊:2005-08-30

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-01-05 17:56:51 IP:218.163.xxx.xxx 訂閱
大大您的
[發表] 懶惰鬼自動登入器 - (利用 Delphi 控制網頁的 Demo)
我套用在下列網址時..其他的值可以輸入但"登陸按鈕"會出現空白無法選取..

http://www.qbooks.com.tw/email_to.php?addr=www.qbooks.com.tw/product-detail.php?cid1=3&qbid=14217
可有方法解決?有勞大大幫忙!!

===================引 用 careychen 文 章===================
那可以看一下小弟的拙作

[發表] 懶惰鬼自動登入器 - (利用 Delphi 控制網頁的 Demo)

===================引 用 ykh8569 文 章===================
抱歉沒說清楚
我是要用webbroser開起
網頁後再點擊此網頁上的按鈕,但此按鈕用 檢視原始碼 方式去看時只看到圖案的連結?
不知要用什麼方法點擊才有作用?

===================引 用 careychen 文 章===================
您想用什麼點擊? 控制滑鼠幫您點擊? 還是程式載入後,由程式幫您點擊?
請把您的問題描述的再清楚一點
washare
初階會員


發表:14
回覆:36
積分:35
註冊:2006-10-17

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-03-23 23:41:21 IP:219.68.xxx.xxx 訂閱
function ClickImage(Doc2: IHTMLDocument2;
AUrl: WideString): HTMLImg;
var
Imgs: IHTMLElementCollection;
Img: HTMLImg;
i: Integer;
s:widestring;
begin
Result:= nil;
if Doc2=nil then exit;
try
Imgs:= Doc2.images as IHTMLElementCollection;
for i:= 0 to Imgs.length-1 do
begin
Img:= Imgs.item(i,0) as HTMLImg;
s:=Img.src;
if Pos(AUrl,s)>0 then
begin
Result:= Img;
exit;
end;
end;
except

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
img:HTMLImg;
begin
img:=ClickImage(Webbrowser1.Document as IHTMLDocument2 ,'images/button-ok.gif');
if i<>nil then
img.click;
end;
系統時間:2024-04-19 23:21:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!