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.