D
dfwforce
Unregistered / Unconfirmed
GUEST, unregistred user!
地址:http://www.starclicker.com/index.php?ref=ptcforce
近来做了个登陆特定类型网站的程序,其他的网站都没问题,就单单上面那个怎么也登陆不进.
代码如下:
ID:=TIdHTTP.Create(nil);
IC:=TIdCookieManager.Create(nil);
ID.CookieManager :=IC;
ID.ProtocolVersion :=pv1_1;
ID.AllowCookies:=true;
ID.HandleRedirects :=true;
ID.HTTPOptions:=[hoForceEncodeParams];
ID.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
//ID.Request.AcceptEncoding:='gzip, deflate';
ID.Request.AcceptLanguage:='zh-cn';
ID.Request.Accept :='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*';
//ID.Request.ContentType :='text/html; charset=iso-8859-1';
ID.Request.ContentType :='application/x-www-form-urlencoded';
ID.Request.CacheControl :='no-cache';
ss:=tstringlist.Create;
GoUrl:=Website+'/index.php?view=login&action=login&'
ss.Add(pp); //pp为登录名,密码等等,&returnTo=&id=&ac=&step=&ptype=&form_user='+UserID+'&form_pwd='+pw;
try
txt:=id.post(GoUrl,ss);
except
txt:='timeout';
end;
ss.Free;
怎么提交都是回到登陆页面.indy从9.0--10.0.76都试过了,还是不行,请帮帮忙,谢谢了~~`
近来做了个登陆特定类型网站的程序,其他的网站都没问题,就单单上面那个怎么也登陆不进.
代码如下:
ID:=TIdHTTP.Create(nil);
IC:=TIdCookieManager.Create(nil);
ID.CookieManager :=IC;
ID.ProtocolVersion :=pv1_1;
ID.AllowCookies:=true;
ID.HandleRedirects :=true;
ID.HTTPOptions:=[hoForceEncodeParams];
ID.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
//ID.Request.AcceptEncoding:='gzip, deflate';
ID.Request.AcceptLanguage:='zh-cn';
ID.Request.Accept :='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*';
//ID.Request.ContentType :='text/html; charset=iso-8859-1';
ID.Request.ContentType :='application/x-www-form-urlencoded';
ID.Request.CacheControl :='no-cache';
ss:=tstringlist.Create;
GoUrl:=Website+'/index.php?view=login&action=login&'
ss.Add(pp); //pp为登录名,密码等等,&returnTo=&id=&ac=&step=&ptype=&form_user='+UserID+'&form_pwd='+pw;
try
txt:=id.post(GoUrl,ss);
except
txt:='timeout';
end;
ss.Free;
怎么提交都是回到登陆页面.indy从9.0--10.0.76都试过了,还是不行,请帮帮忙,谢谢了~~`