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

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

 
careychen
尊榮會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-09-11 17:17:44 IP:218.210.xxx.xxx 訂閱
本程式的來源以及起頭是由 pceyes 前輩所發表的 懶惰鬼帳號密碼填入器
因前輩看到在站裡常有同好們問起相關的問題,但似乎都沒有一個完整的解答,所以決定發一個較完整的 Solution
來解決大部份的問題,謝謝 pceyes 前輩,小弟代為整理了一下

目前站上大部份的問題如下:

請問如何在delphi中做web的連結
怎樣讀取javascript的返回值?
如何達到網頁按鈕 .CLICK的動作(非submit),或執行java函數
如何利用BCB程式在網頁上的文字欄位填入字串的值
請問如何在網頁中自動填入資料?

如何列出所有已開啟的網頁?
如何取得網頁的原始程式碼?
如何填資料後自動按下Submit?
如何執行網頁上的 JavaScript ?
如何執行 Script 後,取回執行內容?
列出網頁內所使用到的 JavaScript

說明:
1、程式內的 IWeb 變數 等於使用元件 TWebBrowser ,所以相關的屬性、事件可以對應著看
2、本程式中大部份的註解是寫在 frm_PostEdit 中,而 frm_AutoLogin 程式碼類似註解較少


本程式希望可以解決大部份同好們對於這方面的問題,
當然.........有懶惰鬼想用這個自動登入器的,也非常歡迎哦~~!

最後如對程式有建議的先進們,也歡迎告知小弟,這邊也會一起整理起來
------
價值的展現,來自於你用哪一個角度來看待它!!
編輯記錄
careychen 重新編輯於 2008-09-11 23:27:11, 註解 修正 Bug‧
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-09-11 17:56:21 IP:122.127.xxx.xxx 訂閱
真令人汗顏,我寫了好久了,在網上東湊湊,西黏黏的,搞了好幾個月,您寫了二天(還不是好幾天)就搞定了,畫面也很炫,更奇怪的是程式只有二百多K。
其實是找了不少資料,缺的是功力不足,不敢拿出來,怕給人家笑。
最後還是謝謝careychen大大的熱心,以後再有開啟網頁的問題,就可以指到這篇來了。

------
努力會更接近成功
careychen
尊榮會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-09-11 18:04:32 IP:218.210.xxx.xxx 訂閱
程式只有兩個多 k 是因為小弟用 ASPack 來壓縮程式的,平常寫程式時都用這個壓過再出貨,程式會小很多
實際編完是 6百多 k 的,因為這隻程式是需付費的,可以自行在 Google 上搜尋
------
價值的展現,來自於你用哪一個角度來看待它!!
mybanksoft
初階會員


發表:8
回覆:37
積分:29
註冊:2007-12-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-08-04 18:57:25 IP:211.22.xxx.xxx 訂閱
果然好用,謝謝您的付出。
------
努力學習Rave
編輯記錄
mybanksoft 重新編輯於 2009-08-04 19:01:12, 註解 無‧
mybanksoft 重新編輯於 2009-08-18 09:35:37, 註解 無‧
mybanksoft 重新編輯於 2009-08-20 14:41:54, 註解 無‧
TWY
高階會員


發表:2
回覆:133
積分:152
註冊:2009-09-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-09-10 14:58:28 IP:211.21.xxx.xxx 訂閱
感謝 careychen 的分享。
我定時會上某投資網頁更新自己績效,由於部分技術無法突破所以頂多對網頁用 Ctrl A => Ctrl C 然後 Delphi 程式解讀內容...
如今全部動作都可以改成程式自動化了!
另外補充回饋,在我的電腦 IE8 無法抓到 JavaScript 回傳值,原本碼如下
[code delphi]
Result := win.ExecScript('_Add(1,2)', Olelanguage);
[/code]
改成下面這樣就可以了,給有需要的人參考。
[code delphi]
vReturn := WebBrowser1.OleObject.document.parentWindow._Add(1,2);
[/code]
編輯記錄
TWY 重新編輯於 2009-09-10 14:59:34, 註解 無‧
系統時間:2024-04-23 19:52:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!