讨论一下网页的自动登陆问题！

DelphiStudy 2003-08-26 02:10:25

我有3个经常用的电子邮箱，还有很多常去的论坛，我记得一年前在CSDN上看过一位高人的贴子，讲的是如何CSDN的自动登陆。不知道这位高人能不能为我指点一二。
Procedure Web();
var
a,b,c,d:olevariant;
begin
form1.WebBrowser1.Visible :=true;
form1.WebBrowser1.Navigate ('http://reg4.163.com/CheckUser.jsp',a,b,c,d);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
Input:IHTMLInputElement;
Form:IHTMLFormElement;
begin
try
Doc:=Webbrowser1.Document as IHTMLDocument2;
Input:= Doc.all.item('username',0) as IHTMLInputElement;
Input.value:='MailUser';//这是邮箱用户名
Input:= Doc.all.item('password',0) as IHTMLInputElement;
Input.value:='UserPass';//这是用户密码
Input:= Doc.all.item('submit',0) as IHTMLInputElement;
Input.value:='登　录';
Form.method:='post';
Form:= Doc.all.item('form',0) as IHTMLFormElement;
Form.action :='http://reg4.163.com/CheckUser.jsp';
Form.submit;
except end;
end;
相关资料如下：
<script language="JavaScript">
<!--
function checkdata() {
if( form.username.value.length<1 || form.username.value.length>18 ) {
alert("\请输入正确的网易通行证用户名 !!")
return false;
}
if( form.password.value.length<1 || form.password.value.length>18 ) {
alert("\请输入登录密码 !!")
return false;
}
<FORM action=CheckUser.jsp method=post name=form onSubmit="return checkdata()">
<tr>
<td height=80 align=center><a href=http://www.163.com><IMG SRC=http://pimg.163.com/sms/micheal/logo.gif WIDTH=156 HEIGHT=50 border=0></a></td>
</tr>
<tr>
<td align=center valign=top>
<table width=180 border=0 cellspacing=0 cellpadding=0>
<input type=hidden name=url value="">
<tr>
<td height=29><strong>用户名</strong>：
<INPUT name=username class=data size=15 maxLength=18 value="null"></td>
</tr>
<tr>
<td height=29> <strong>密　码</strong>：
<INPUT name=password type=password class=data size=15 maxLength=18> </td>
</tr>
<tr>
<td align=right><INPUT name="submit" type=submit value="登　录" class=button>

...全文