delphi模拟登陆

实现用代码来登录一个网站,登录用户名、密码的输入及提交按钮的点击事件全部用程序来模拟 下面以登录博客园来举例说明 http://passport.cnblogs.com/login.aspx 一、模拟录入用户名及密码: 先将关键代码写出

procedure TForm1.btnloginClick(Sender: TObject); var Doc: IHTMLDocument2; userinputelement, pwdinputelement: ihtmlinputelement; begin doc := wb1.document as ihtmldocument2; userinputelement := (doc.all.item('tbUserName', 0) as ihtmlinputelement); userinputelement.value := Trim(edt1.Text); pwdinputelement := (doc.all.item('tbPassword', 0) as ihtmlinputelement); pwdinputelement.value := Trim(edt2.Text); wb1.OleObject.document.all.item('btnLogin').click;

//ewb.OleObject.document.getElementsByTagName('input').item(7).click;
                    end;上面代码中

userinputelement := (doc.all.item(‘tbUserName’, 0) as ihtmlinputelement); pwdinputelement := (doc.all.item(‘tbPassword’, 0) as ihtmlinputelement); 此两行代码是用来定位录入用户名框及密码框的,具体为什么用’tbUserName’及’tbPassword’ 来定位?我们来打开登录页面http://passport.cnblogs.com/login.aspx ,并查看其网页源码,其中有以下源码

 <a href="/GetUsername.aspx"> 此两行为用户名及密码录入框 name=”tbUserName” 及name=”tbPassword” 即为录入框的名字,将其名字拷贝下来粘贴到程序代码中即可,如: userinputelement := (doc.all.item(‘tbUserName‘, 0) as ihtmlinputelement); pwdinputelement := (doc.all.item(‘tbPassword’, 0) as ihtmlinputelement);

二、模拟点击网页中的提交按钮 我们先看网页源码中,提交按钮的相关代码:

有三种方法来提交 1、假如知道按钮名称 上面代码中有 这样的代码name=”btnLogin” ,表明此按钮名称为 btnlogin 程序代码就可以 这样来模拟 wb1.OleObject.document.all.item(‘btnLogin’).click; 2、假如知道按钮id 上面代码中有 这样的代码 id=”btnLogin” ,表明此按钮id为 btnlogin 程序代码可以 这样来模拟 wb1.OleObject.document.getElementByID(‘btnLogin’).click ; 3、假如名称及ID都没有,就只能判断这个提交按钮是第几个了] 按照登录页面源码来分析应当是第八个按钮,按以下语句即可实现登录按钮点击事件. wb1.OleObject.document.getElementsByTagName(‘input’).item(7).click;

上代码 注意引用 mshtml单元

unit Unit1;

interface
                    
                    uses
                    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
                    Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw, MSHTML;
                    
                    type
                    TForm1 = class(TForm)
                    wb1: TWebBrowser;
                    pnl1: TPanel;
                    btn1: TButton;
                    Label1: TLabel;
                    edt1: TEdit;
                    Label2: TLabel;
                    edt2: TEdit;
                    btnlogin: TButton;
                    procedure btn1Click(Sender: TObject);
                    procedure btnloginClick(Sender: TObject);
                    private
                    { Private declarations }
                    public
                    { Public declarations }
                    end;
                    
                    var
                    Form1: TForm1;
                    
                    implementation
                    
                    {$R *.dfm}
                    
                    procedure TForm1.btn1Click(Sender: TObject);
                    begin
                    wb1.Navigate('http://passport.cnblogs.com/login.aspx');
                    end;
                    
                    procedure TForm1.btnloginClick(Sender: TObject);
                    var
                    Doc: IHTMLDocument2;
                    userinputelement, pwdinputelement: ihtmlinputelement;
                    begin
                    doc := wb1.document as ihtmldocument2;
                    userinputelement := (doc.all.item('tbUserName', 0) as ihtmlinputelement);
                    userinputelement.value := Trim(edt1.Text);
                    pwdinputelement := (doc.all.item('tbPassword', 0) as ihtmlinputelement);
                    pwdinputelement.value := Trim(edt2.Text);
                    //  下面三种都可以,自己测试
                    //按按钮名称来点击
                    //wb1.OleObject.document.all.item('btnLogin').click;
                    //按钮钮ID来点击
                    // wb1.OleObject.document.getElementByID('btnLogin').click ;
                    //按第几个按钮来点击
                    wb1.OleObject.document.getElementsByTagName('input').item(7).click;
                    end;
                    
                    end.

</a>

相关文章
相关标签/搜索