Delphi实现网页自动登陆

来源:本站整理 作者:佚名 时间:2010-09-09 09:26:09

比如操作
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;

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

因为我发现他网页源代码里按钮里有事件 <a href="" onclick="javascript:document.loginForm.submit();return false;"> <img src=http://www.pczpg.com/html/bianchengkaifa/Delphi/20091206/"images/im1_21.gif" alt="" width="97" height="27" border="0"> </a> </td>所以我模拟按钮的点击事件可以达到功能。

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;


相关内容:

  • 好的评价 如果您觉得好,就请您
      0%(0)
  • 差的评价 如果您觉得差,就请您
      0%(0)
相关文章
广告赞助
网友评论

共有 0 位网友发表了评论,得分 0 分,平均 0 分     查看完整评论

文章随便看看 站长软件 热门下载 网页模板 源码下载