資源描述:
《delphi中自動提交表單問題終結(jié)者》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、http://hi.baidu.com/eoknet/blog/item/88ef8de781952723b9382032.htmldelphi中自動提交表單問題終結(jié)者,解決多FRAME網(wǎng)頁的表單提交問題某些聊天室是靠在線時間來加分的,我的程序是用來自動登陸某聊天室然后每隔一段時間發(fā)一次言以免掉線。這當中需要解決自動提交表單問題,單FRAME的網(wǎng)頁的提交問題我已經(jīng)解決,但是對于多FRAME的,在看了許多大富翁的回答后仍然解決不了,所以想求一帖能夠真正解決這個問題。這些方法我試了,都不行:一、procedureTForm1.Button3
2、Click(Sender:TObject);varHtm:olevariant;xh,i,k,Po:integer;t:OleVariant;IsFindPos:integer;addqu,S:String;sfind:integer;begin//try//cancel:=false;t:=WebBrowser1.Document;htm:=t.all.item(0,varEmpty);fork:=0tot.all.length-1dobeginif(uppercase(t.all.item(k).tagName)='INPUT')a
3、nd(uppercase(t.all.item(k).type)='TEXT')and(uppercase(t.all.item(k).name)='taklmsg')thenbegint.all.item(k).value:='117';break;end;end;二、//找到登錄用戶名的輸入框//o:=WebBrowser1.oleobject.document.documentelement.document.frames.item(Index).document.all.item('username',0);//o.value:
4、='TEST';//找到登錄密碼的輸入框//o:=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);//o.value:='TEST'//第一個表單提交//WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0,0).
5、submit;//WebBrowser1.oleobject.document.Forms.Item('login',0).submit;1:多個frames的輸入,F(xiàn)rameIndex為Frame的序號 varo:Olevariant;begin//找到登錄用戶名的輸入框o:=WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0);o.value:='TEST';/
6、/找到登錄密碼的輸入框o:=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);o.value:='TEST'//第一個表單提交WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0,0).submit;{//或者用指定
7、表單名稱提交o:=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);o.Click;//點擊操作,對其它對象也可同樣操作}end;這種方法,我在用的時候提示說“停用“調(diào)用取消””(編譯沒有問題,執(zhí)行EXE的時候提示的),這是什么意思,怎么解決2:暈,少了..WebBrowser1.Navigate('你要注冊的網(wǎng)址')........3:toabtong:仔細看看再4:我想
8、終結(jié)這個帖子,不過上面兩位老兄實在是不值我的份數(shù)啊。哪位大哥隨便說點稍微有道理的讓我把分散了吧。5:接受答案了.