delphi模拟登录

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

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);

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

<input type="submit" name="btnLogin" value="登 录" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("btnLogin", "", true, "", "", false, false))" id="btnLogin" class="Button" style="margin-top: 8px" />有三种方法来提交
一、假如知道按钮名称
上面代码中有 这样的代码name=”btnLogin” ，代表此按钮名称为 btnlogin
程序代码就能够 这样来模拟
wb1.OleObject.document.all.item(‘btnLogin’).click;
二、假如知道按钮id
上面代码中有 这样的代码 id=”btnLogin” ，代表此按钮id为 btnlogin
程序代码能够 这样来模拟
wb1.OleObject.document.getElementByID(‘btnLogin’).click ;
三、假如名称及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.