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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |