如何用delphi7在后台登录一个网站并打开一个有权限(登陆用户)的网页?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何用delphi7在后台登录一个网站并打开一个有权限(登陆用户)的网页?相关的知识,希望对你有一定的参考价值。

如题目,用两个DBEdit和一个Button,有权限的页是www.zd7s.net/index.aspx,源代码请写完整。(如需要,可以用Indy10)
副登陆页面的源代码(用ie打开的)(此页是/login.aspx)

<SCRIPT LANGUAGE="javascript">
<!--

//-->
</SCRIPT>

<html>
<head>
<title>掉线显示</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Css/Public.css" type="text/css">
<script language="javascript" src="../Js/CheckFunction.js"></script>
<script language="javascript">
<!--
function CheckForm( l_form )

if ( !PromptEmptyString("用户名", l_form.UserName ) ) return false;
if ( !PromptEmptyString("密码", l_form.UserPass ) ) return false;
return true;

//-->
</script>
</head>
<body onLoad="javascript:document.forms[0].UserName.focus()">
<div align="center"><br>
<span class="NormalText"><font color="#FF0000">对不起,您已经掉线了,请您重新登录!</font></span></div>
<form action="login.aspx?loginMode=2" method="post" onsubmit="javascript:return CheckForm(this)" target="registerframe">
<input type="hidden" name="FromOffline" value="1">
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" class="NormalText">
<tr>
<td width="46%">
<div align="right">用户名:</div>
</td>
<td width="54%">
<div align="left">
<input type="text" name="UserName">
</div>
</td>
</tr>
<tr>
<td width="46%">
<div align="right">密码:</div>
</td>
<td width="54%">
<div align="left">
<input type="password" name="UserPass">
</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="image" border="0" name="imageField" src="../Images/Buttons/Logon.gif" width="51" height="20">
<a href="javascript:document.forms[0].reset()"><img src="../Images/Buttons/Rewrite.gif" width="51" height="20" border="0"></a>
</div>
</td>
</tr>
</table>
</form>
<iframe name="registerframe" id="registerframe" width="0" height="0" frameborder="0"></iframe>
</body>
</html>

在线等。

首先,你必须先载入网页完成以后,才能执行下面的代码。

下面是针对你给出的网页代码做的登陆,

var
o1:Olevariant;
o2:Olevariant;
o3:Olevariant;
begin
o1:=WebBrowser1.OleObject.document.all.item('UserName',0);
o1.value:='用户名,或者edit1.text';
o2:=WebBrowser1.oleobject.document.all.item('UserPass',0);
o2.value :='密码';
o3:=WebBrowser1.oleobject.document.all.item('imageField',0);
o3.Click;
end;
参考技术A 设置用户名,密码,权限级别等字段
根据用户权限对操作进行控制

你好,网站后台管理怎么登陆?

网站后台的登录页面,一般是不对外开放的。也就是说在正常访问的页面是没有链接可以打开后台登录页面的。这个需要和网站管理员联系用于获得后台登录页面。一般来说,不严谨的网站的后台登录页面都是http://网站URL/admin/login.XXX这种的地址,“XXX”代表的是网站页面的开发语言,如,asp表示网站是asp语言的,php表示网站是php语言的。 参考技术A 一半情况都是 , 域名/admin , 看是什么cms阿, dede的跟帝国的都不一样的, 参考技术B 会有一个后天管理的链接地址 打开地址输入用户名密码登录就可以了

以上是关于如何用delphi7在后台登录一个网站并打开一个有权限(登陆用户)的网页?的主要内容,如果未能解决你的问题,请参考以下文章

如何用java实现登陆网站--不需打开浏览器

如何用手机访问局域网电脑上的网站

你好,网站后台管理怎么登陆?

如何用xshell远程linux服务器并进行操作

如何用电脑操作android手机

如何用python签署数字签名?