http://my.qq.com这个网站,用IDHTTP实现登录
我现在的问题每次提交,我抓包查看,会有两次POST的动作,返回的信息也是未登录状态的,部分代码,哪位朋友能够帮我解决一下.procedure TForm1.Button1Click(Sender: TObject);
var
params:tstrings;
begin
idHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
idHTTP1.Request.ContentType:='application/x-www-form-urlencoded; Charset=UTF-8';
idHTTP1.Request.Host:='my.qq.com';
idHTTP1.Request.Connection:='Keep-Alive';
idHTTP1.Request.Accept:='*/*';
idHTTP1.Request.SetHeaders;
idHTTP1.Request.CustomHeaders.Values['Cookie']:= edit4.text;
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='+'8000203');
params.Add('dummy='+'1');
params.Add('h='+'1');
memo1.Text:=idhttp1.Post('http://ptlogin2.qq.com/login',params);
memo1.Text:=utf8toansi(memo1.Text);
end;
我现在的问题每次提交,我抓包查看,会有两次POST的动作,返回的信息也是未登录状态的,部分代码,哪位朋友能够帮我解决一下.procedure TForm1.Button1Click(Sender: TObject);
var
params:tstrings;
begin
idHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
idHTTP1.Request.ContentType:='application/x-www-form-urlencoded; Charset=UTF-8';
idHTTP1.Request.Host:='my.qq.com';
idHTTP1.Request.Connection:='Keep-Alive';
idHTTP1.Request.Accept:='*/*';
idHTTP1.Request.SetHeaders;
idHTTP1.Request.CustomHeaders.Values['Cookie']:= edit4.text;
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='+'8000203');
params.Add('dummy='+'1');
params.Add('h='+'1');
memo1.Text:=idhttp1.Post('http://ptlogin2.qq.com/login',params);
memo1.Text:=utf8toansi(memo1.Text);
end;
解决方案 »
- 几行C++代码如何翻译成delphi??
- 如何把sql库中money数据的小数只表达为2位的?(火急100)
- 用Delphi中的TSocketServer做的socket服务器程序,请问当客户端连接时她是为每个客户端都开一个线程执行操作么???
- 播放pcm文件,控件也行
- cxDbImage控件的问题
- Query1.Append提示不能修改只读的dataset的错误怎么处理??在线急等……
- 谁有infoPower的注册号?(给200分)
- 关于 Delphi2010 下安装 fastReport4 的问题!
- WebBrowser的问题
- TChart的组合打印问题
- 从一个表中查出一个记录插到另一个表中,在SQL中实现,但在delphi7中出错!!
- 继承的子窗口如何实现FORMKEYDOWN事件(急 百分相送)
idhttp老是获得不了cookie,郁闷中
我的帖子:
http://topic.csdn.net/u/20090223/12/d737b963-0a5a-4b0d-b2d8-7c1620e7eb26.html?seed=47920073
获取COOKIE我是搞的出来的,就是抓包发现会出现两次POST。