|
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
,并查看其网页源码，其中有以下源码
<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="登 录" onclick="javascript:WebForm_DoPostBackWithO
ptions(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.
|
