WebBrowser自動登入yahoo信箱 |
|
缺席
|
|
chris681016
中階會員   發表：69 回覆：122 積分：98 註冊：2006-10-12 發送簡訊給我 |
使用d7
docs:= webbrowser1.document; edits:=docs.getelementbyid('login'); edits.value:='xxxxxxx'; edits:=docs.getelementbyid('passwd'); edits.value:='xxxxxxx'; 送出時 yahoo登入會跳出「安全性警訊」要出何自動按下「確定」呢? 使用下列範例也進入不了~~ procedure TForm1.WMActivate(var Msg: TWMActivate); var S: String; wnd: HWND; I: Integer; begin If Msg.Active=0 then begin wnd := Msg.ActiveWindow; I := GetWindowTextLength(wnd); SetLength(S, I 1); GetWindowText(Wnd, PChar(S), I 1); If Pos('安全性警訊, S)>0 then Sendmessage(wnd,WM_CLOSE,0,0); end; end; 編輯記錄
chris681016 重新編輯於 2009-02-25 10:19:28， 註解 無‧
chris681016 重新編輯於 2009-02-25 10:19:55， 註解 無‧ chris681016 重新編輯於 2009-02-25 10:20:25， 註解 無‧ |
|
chris681016
中階會員 發表：69 回覆：122 積分：98 註冊：2006-10-12 發送簡訊給我 |
|
|
devhp
一般會員  發表：6 回覆：10 積分：3 註冊：2007-06-12 發送簡訊給我 |
發表時間：2009-02-24 17:44:43
IP:211.75.xxx.xxx 訂閱
系統時間：2024-04-20 15:08:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |