請問自動登入(四種方法,有二種可以,但post卻不行) |
尚未結案
|
conchih
一般會員 發表:41 回覆:33 積分:14 註冊:2003-06-07 發送簡訊給我 |
各位前輩:
小弟試了4種方法,但post卻不行 能否幫我看一下那寫錯了 程式碼與網頁原始碼如下 感謝各位大大 原登入網址為 https://ap2.esunsec.com.tw/webapp/report/login.asp,(原始碼太長,無法貼上) (選擇一般顧客 ,經分析後找到 ..../verify.asp) 直接在IE輸入https://ap2.esunsec.com.tw/webapp/report/verify.asp?radiobutton=2&aid2=conchih&pwd2=662b5c&Submit1=µn¤J&ckURL=$REPORTWEB$RAF3]ASP{S1}1 [code delphi] procedure TForm1.Button1Click(Sender: TObject); var IdHTTP1: TIdHTTP; PData,ss : TStringStream; LData,temp:TstringList; FileStrm : TFileStream; i,j,k,start_pos,end_pos:integer; source_code,Full_URL,local_filename,source_date,report_year,report_month,report_date,report_sn:string; File_Filter:TextFile; P:THTMLParser; begin //------方法四: 失敗! 使用idhttp.post 請問我那錯了 Full_URL:='https://ap2.esunsec.com.tw/webapp/report/verify.asp'; IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded'; Ldata:=TStringList.Create; LData.add('radiobutton=2'); LData.add('aid2=conchih'); LData.add('pwd2=662b5c'); LData.add('Submit1=µn¤J'); //中文為'登入' LData.add('ckURL=$REPORTWEB$RAF3]ASP{S1}1'); //或將上述5列資料改成 以下,但也不行 //LData.Text:='=&radiobutton=2&aid2=conchih&pwd2=662b5c&Submit1=µn¤J&ckURL=$REPORTWEB$RAF3]ASP{S1}1'; Memo1.Lines.Text:=idhttp1.post(Full_URL,LData); //出現錯誤 end [/code] |
conchih
一般會員 發表:41 回覆:33 積分:14 註冊:2003-06-07 發送簡訊給我 |
網頁原始碼可能太長了,無法貼上
編輯記錄
conchih 重新編輯於 2008-05-04 07:35:21, 註解 無‧
conchih 重新編輯於 2008-05-04 07:38:53, 註解 無‧ conchih 重新編輯於 2008-05-04 08:16:05, 註解 無‧ conchih 重新編輯於 2008-05-04 08:23:45, 註解 無‧ conchih 重新編輯於 2008-05-04 08:33:53, 註解 無‧ conchih 重新編輯於 2008-05-04 08:35:28, 註解 無‧ conchih 重新編輯於 2008-05-04 09:01:22, 註解 無‧ conchih 重新編輯於 2008-05-04 09:02:35, 註解 無‧ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |