delphi 实现网页自动登录
2014-07-16 09:12
525 查看
比如操作
CSDN的登录
先用WebBrowser定位到登录页面
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
然后,看其HTML源代码,发现
名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEmail的元素就是 其用户名的输入框了。
此时
使用
(WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam)来得到这个元素了。
var
UserEdt,LogBtn: IHTMLELEMENT;
begin
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam) as IHTMLELEMENT;
UserEdt.setAttribute('value','test',0);//这里就设置了test到输入用户名的编辑框中了 。
//依此一样,输入密码,验证码
//然后找那个登录按钮,通过他的HTML源代码,可以知道,那个按钮其实是个图片,元素的名字叫 “ctl00$CPH_Content$Image_Login”
//同样的方法
LogBtn := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$Image_Login',emptyParam) as IHTMLELEMENT;
LogBtn.Click;//调用按钮的点击事件开始登录。
end;
===============================================================================
因为我发现他网页源代码里按钮里有事件 所以我模拟按钮的点击事件可以达到功能。
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;\\登入
const pDisp: IDispatch; var URL: OleVariant);
var
vDocument:IHTMLDocument2;
useredt,userPASS:IHTMLELEMENT;
begin
if q then
begin
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logUsers',emptyParam) as IHTMLELEMENT;
UserEdt.setAttribute('value','cc3802',0);
Userpass := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logPasses',emptyParam) as IHTMLELEMENT;
Userpass.setAttribute('value','*******',0);
q:=false;
vDocument := WebBrowser1.Document as IHTMLDocument2;
vDocument.parentWindow.execScript('document.loginForm.submit()', 'javascript');
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
astring:String;
vDocument:IHTMLDocument2;
begin
vDocument := WebBrowser1.Document as IHTMLDocument2;
astring:='url_link('+'''../DutyPage/SubmitDuty2.aspx?apidos=795010&sl=1'''+')';
vDocument.parentWindow.execScript(astring,'javascript');
end;
CSDN的登录
先用WebBrowser定位到登录页面
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
然后,看其HTML源代码,发现
名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEmail的元素就是 其用户名的输入框了。
此时
使用
(WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam)来得到这个元素了。
var
UserEdt,LogBtn: IHTMLELEMENT;
begin
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$tb_LoginNameOrLoginEmail',emptyParam) as IHTMLELEMENT;
UserEdt.setAttribute('value','test',0);//这里就设置了test到输入用户名的编辑框中了 。
//依此一样,输入密码,验证码
//然后找那个登录按钮,通过他的HTML源代码,可以知道,那个按钮其实是个图片,元素的名字叫 “ctl00$CPH_Content$Image_Login”
//同样的方法
LogBtn := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('ctl00$CPH_Content$Image_Login',emptyParam) as IHTMLELEMENT;
LogBtn.Click;//调用按钮的点击事件开始登录。
end;
===============================================================================
因为我发现他网页源代码里按钮里有事件 所以我模拟按钮的点击事件可以达到功能。
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;\\登入
const pDisp: IDispatch; var URL: OleVariant);
var
vDocument:IHTMLDocument2;
useredt,userPASS:IHTMLELEMENT;
begin
if q then
begin
UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logUsers',emptyParam) as IHTMLELEMENT;
UserEdt.setAttribute('value','cc3802',0);
Userpass := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item('logPasses',emptyParam) as IHTMLELEMENT;
Userpass.setAttribute('value','*******',0);
q:=false;
vDocument := WebBrowser1.Document as IHTMLDocument2;
vDocument.parentWindow.execScript('document.loginForm.submit()', 'javascript');
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
var
astring:String;
vDocument:IHTMLDocument2;
begin
vDocument := WebBrowser1.Document as IHTMLDocument2;
astring:='url_link('+'''../DutyPage/SubmitDuty2.aspx?apidos=795010&sl=1'''+')';
vDocument.parentWindow.execScript(astring,'javascript');
end;
相关文章推荐
- delphi 实现网页自动登录
- delphi实现自动填写表单和调用网页上的函数
- 网页在实现自动登录后,再跳转打开网页如何实现?
- delphi 模拟自动登录网页
- c# 实现网页上用户自动登陆|asp.net 模拟网站登录
- 来往网页版扫码自动登录的实现原理(微信也是一样)
- 黑马程序员_Java实现网页程序自动登录
- Delphi实现网页表单数据的自动提交
- Delphi实现网页表单数据的自动提交
- 在delphi中实现网页的自动输入
- c# winform实现网页上用户自动登陆,模拟网站登录
- 如何实现网页程序自动登录(java)?
- C#WinForm应用程序实现自动填充网页上的用户名和密码并点击登录按钮
- c# 实现网页上用户自动登陆|asp.net 模拟网站登录
- delphi : webbrowser实现自动登录
- 网页如何实现更好的自动登录;
- C#实现网页表单自动提交(126邮箱登录例程)
- Delphi实现网页表单数据的自动提交
- 用DELPHI实现网页的自动填充
- C#实现网页表单自动提交(126邮箱登录例程)