IDHTTP实现登录QQ网站
http://my.qq.com这个网站,用IDHTTP实现登录
我是这样写的,可以返回的信息是系统繁忙,请稍候再试,请问是什么原因
- Delphi(Pascal) code
procedure TForm1.BitBtn1Click(Sender: TObject);var params:tstrings;begin Params:=TStringList.Create; params.Add('fp='+'loginerroralert'); params.Add('u='+edit1.Text); params.Add('p='+edit2.Text); params.Add('verifycode='+edit3.Text); params.Add('u1='+'http://my.qq.com'); params.Add('aid='+'8000201'); memo1.Text:=idhttp1.Post('http://ptlogin2.qq.com/login',params); memo1.Text:=utf8toansi(memo1.Text);end;一般的网站这样写都是可以登录的了,QQ怎么就不行呢,请高手帮忙,非常感谢!!
[解决办法]
楼主,不知道你注意到页面里的代码了吗?
- HTML code
<form autocomplete="off" id="loginform" name="loginform" action="http://ptlogin2.qq.com/login" method="post" onsubmit="return ptui_onLogin(loginform)" onreset="return onFormReset(loginform)" target="_self" style="margin:0px;">
[解决办法]
楼主如果要在Delphi下实现md5的加密,可以下载别的前辈写好的一个md5函数。
请到如下地址下载:
http://www.delphifans.com/SoftView/SoftView_156.html
[解决办法]
http://www.2ccc.com/article.asp?articleid=4536
找了一下,在这里