ssl加密带证书的站点，如何自动登录，网址在贴子里

lyq 2010-09-19 09:20:21

https://login.skype.com/account/login-form?usrename=a&password=b
想通过软件模拟登录，但用户名可以传过去，密码不行，而且站点打开时提示有证书。

...全文

194 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyq 2010-09-20

打赏
举报

还有人回答吗，问题还没有解决呢，不是打错的问题，看上边　我的代码

L3nnon 2010-09-19

打赏
举报

[Quote=引用 1 楼 caesardm 的回复:]

用Post方法提交

username你打错字符了
[/Quote]
吸取教训。。
学习学习。。

lyq 2010-09-19

打赏
举报

原来是用的IdSSLIOHandlerSocket

var
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);