Delphi实现网页自动登陆

[转]Delphi实现网页自动登陆 收藏

比如操作 
CSDN的登录 
先用WebBrowser定位到登录页面 
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/'); 
然后，看其HTML源代码，发现 
名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEmail的元素就是 其用户名的输入框了。 
此时 
使用 
(WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam)来得到这个元素了。

var 
UserEdt,LogBtn: IHTMLELEMENT; 
begin 
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam) as IHTMLELEMENT; 
UserEdt.setAttribute('value','test',0);//这里就设置了test到输入用户名的编辑框中了 。 
//依此一样，输入密码，验证码 
//然后找那个登录按钮，通过他的HTML源代码，可以知道，那个按钮其实是个图片，元素的名字叫 “ctl00$CPH_Content$Image_Login” 
//同样的方法 
LogBtn := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$Image_Login',emptyParam) as IHTMLELEMENT; 
LogBtn.Click;//调用按钮的点击事件开始登录。 
end;

===============================================================================

因为我发现他网页源代码里按钮里有事件 所以我模拟按钮的点击事件可以达到功能。

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;\\登入 
const pDisp: IDispatch; var URL: OleVariant); 
var 
vDocument:IHTMLDocument2; 
useredt,userPASS:IHTMLELEMENT; 
begin 
if q then 
begin 
   UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logUsers',emptyParam) as IHTMLELEMENT; 
   UserEdt.setAttribute('value','cc3802',0); 
   Userpass := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logPasses',emptyParam) as IHTMLELEMENT; 
   Userpass.setAttribute('value','*******',0); 
   q:=false; 
   vDocument := WebBrowser1.Document as IHTMLDocument2; 
   vDocument.parentWindow.execScript('document.loginForm.submit()', 'javascript'); 
end; 
end; 
procedure TForm1.Button7Click(Sender: TObject); 
var 
     astring:String; 
     vDocument:IHTMLDocument2; 
begin 
    vDocument := WebBrowser1.Document as IHTMLDocument2; 
    astring:='url_link('+'''../DutyPage/SubmitDuty2.aspx?apidos=795010&sl=1'''+')'; 
   vDocument.parentWindow.execScript(astring,'javascript'); 
end;

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/a131988/archive/2009/05/12/4172970.aspx