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: T