Q:各位高手請問一下,我在form上面放了一個webbrowser的物件,然後,我用這個程式來上網,我去的網站有些需要輸入帳號和密碼,我想請問一下,我能直接在這個程式上面再做一個輸入帳號和密碼的按鈕,下次進入網站的時候,只要按下按鈕就會自動輸入帳號和密碼. 我有個構想是用模擬滑鼠移動到網頁上的輸入帳號框,然後再用模擬鍵盤輸入的方式,自動輸入帳號,不知道這個方法可不可行,如果可行的話,請高手告訴我,程式碼要如何寫呢,謝謝 A: 試試看（有測試過可行）： procedure TForm1.ToolButton2Click(Sender: TObject); var Docs, Edits : OleVariant; begin Docs :=WebBrowser1.Document; //此處只適用於http://webhd.yam.com/Login.htm該網頁的輸入 Edits :=Docs.GetElementByID('id'); Edits.Value :='您的帳號'; Edits :=WebBrowser1.OleObject.Document.all.Item('pwd', 0); Edits.Value :='您的密碼'; //登入 WebBrowser1.OleObject.Document.GetElementByID('Submit').Click; end; -------------------------------------------------------------- Q:如果我要換成這個網頁 https://www.uwccb.com.tw/netbank/default.asp 的話 程式要如何改寫,請站長跟各位高手指點一下,謝謝 ps:站長你寫的程式看起來好深奧,沒幾行我看的懂的,可能我是新手的關係 A:您可於進入網頁後,按下滑鼠右鍵"檢視原始碼", 可以看到有兩個: ＜input type="text" name="CustIDTmp" size="18" maxlength="10" value=""＞ 所以要將 Edits :=WebBrowser1.OleObject.Document.all.Item ('CustIDTmp', 1); 設為1,表示要填第２個CustIDTmp! 同樣CustPwdTmp也是有兩個! 您可以看看該網頁的原始碼，就可以發現其由兩個Form組成，各有各的，但名稱都一樣。 而站長的用法是取出Document內名稱為CustIDTmp，且為第二個。 所以寫成： Edits :=WebBrowser1.OleObject.Document.all.Item ('CustIDTmp', 1); 而若您對整個網頁架構有一點觀念的話，想想看Document的架構，您就可以將 Edits :=WebBrowser1.OleObject.Document.all.Item ('CustIDTmp', 1); 改寫成： Edits :=WebBrowser1.OleObject.Document.Forms.item(1).all.Item('CustIDTmp', 0); 看的懂嗎？ 第二行只是多了=>Forms.item(1) 亦即為第二個Form -------------------------------------------------------------- Q:再請教站長跟各位高手,這個http://home.kimo.com.tw/warrant168/Price.htm網頁的自動輸入要如何寫,這個網頁我已經試了好久就是試不出來,那個按鈕是圖片加連結,所以不知道要如何寫,請站長跟各位高手再幫我試一下,謝謝! A: 您可以看到此頁是一個Fram的架構，所以如下： WebBrowser1.OleObject.Document.documentelement.document.frames.Item(0).Document.Links.Item(0).Click; 請參考:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18695 ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～