delphi html 登录,delphi 模拟自动登录网页

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

,并查看其网页源码，其中有以下源码

 

此两行为用户名及密码录入框

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.