delphi模拟登陆-CSDN博客

实现用代码来登录一个网站，登录用户名、密码的输入及提交按钮的点击事件全部用程序来模拟
下面以登录博客园来举例说明 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
,并查看其网页源码，其中有以下源码

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

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

<input type="submit" name="btnLogin" value="登录" οnclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("btnLogin", "", true, "", "", false, false))" id="btnLogin" class="Button" style="margin-top: 8px" />有三种方法来提交
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.
























本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/2045188 ，如需转载请自行联系原作者