ssl加密带证书的站点,如何自动登录,网址在贴子里 https://login.skype.com/account/login-form?usrename=a&password=b想通过软件模拟登录,但用户名可以传过去,密码不行,而且站点打开时提示有证书。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用Post方法提交username你打错字符了 我用idhttp post提交的, 是username,贴子上打错了,结果提交返回结果是一个?号 TIdHTTP + TIdSSLIOHandlerSocketOpenSSL 原来是用的IdSSLIOHandlerSocketvar logininfo:tstringlist; Response:TStringStream; FileName,hb: String; i:integer; s0,s1:widestring ; xz,jl:boolean;begin xz:=false;jl:=false; listview1.Items[row].ImageIndex:=1; Response:=TStringStream.Create(''); logininfo:=tstringlist.Create; logininfo.Add('username='+username); logininfo.Add('password='+password); logininfo.Add('click=login'); IdHTTP1.HandleRedirects:=true ; IdHTTP1.Request.Connection:='Keep-Alive'; IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)'; IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded'; IdHTTP1.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*'; IdHTTP1.Request.AcceptLanguage:='utf-8'; IdHTTP1.Request.AcceptEncoding:='gzip, deflate'; IdHTTP1.Request.CacheControl:='no-cache'; IdHTTP1.ReadTimeout:=60000; IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol]; IdHTTP1.ProtocolVersion:=pv1_1; listview1.Items[row].SubItems[4]:='正在检测'; memo1.Lines.add(IdHTTP1.get('https://login.skype.com/account/login-form?usrename=a&password=b')); memo1.Lines.add(Response.DataString); s0:=UTF8Decode(Response.DataString); 带有dvExpress控件的程序如何从7升级到2010 一个不错的电子书网站 请教无边框窗口拖放 报表的问题?在线等待!!!!! 如何压缩AVI ? 菜鸟问题,在delphi里面怎么连接ACCESS数据库? Query Outbreak ///////////谁有打印及预览TF1Book的源代码\\\\\\\\\\\ cobi(我是小新,我只有五岁):你好!帮帮我吧! 什么控件可以录音,Mediaplayer吗? 是不是这个意思 用delphi写图像算法运行速度慢
结果提交返回结果是一个?号
logininfo:tstringlist;
Response:TStringStream;
FileName,hb: String;
i:integer;
s0,s1:widestring ;
xz,jl:boolean;
begin
xz:=false;jl:=false;
listview1.Items[row].ImageIndex:=1;
Response:=TStringStream.Create('');
logininfo:=tstringlist.Create;
logininfo.Add('username='+username);
logininfo.Add('password='+password);
logininfo.Add('click=login');
IdHTTP1.HandleRedirects:=true ;
IdHTTP1.Request.Connection:='Keep-Alive';
IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)';
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*';
IdHTTP1.Request.AcceptLanguage:='utf-8';
IdHTTP1.Request.AcceptEncoding:='gzip, deflate';
IdHTTP1.Request.CacheControl:='no-cache';
IdHTTP1.ReadTimeout:=60000;
IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol];
IdHTTP1.ProtocolVersion:=pv1_1;
listview1.Items[row].SubItems[4]:='正在检测';
memo1.Lines.add(IdHTTP1.get('https://login.skype.com/account/login-form?usrename=a&password=b'));
memo1.Lines.add(Response.DataString);
s0:=UTF8Decode(Response.DataString);