1,593
社区成员
发帖
与我相关
我的任务
分享
FParamList:TStringList;
FInfoGet是idhttp
FInfoGet.HandleRedirects:=False;
FInfoGet.OnRedirect:=MyRedirect;
FInfoGet.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
FInfoGet.Request.ContentType:='application/x-www-form-urlencoded';
//FInfoGet.Request.Connection:='Keep-Alive';
FInfoGet.Request.CacheControl := 'no-cache';
FInfoGet.Request.AcceptLanguage := 'zh-cn';
FInfoGet.Request.Accept:='*/*';
FInfoGet.Request.Method := hmPost;
FParamList.Clear;
FParamList.Add('TPL_username=xxxxxxx');
FParamList.Add('TPL_password=xxxxxx');
FParamList.Add('_tb_token_=');
FParamList.Add('action=Authenticator');
FParamList.Add('event_submit_do_login=anything');
FParamList.Add('TPL_redirect_url=');
FParamList.Add('from=tb');
FParamList.Add('fc=2');
FParamList.Add('style=default');
FParamList.Add('tid=XOR_1_111000000000000000000000000000_63584421307E09797204760B');
FParamList.Add('support=000001');
FParamList.Add('CtrlVersion=1,0,0,7');
FParamList.Add('loginType=3');
FParamList.Add('minititle=');
FParamList.Add('minipara=');
FParamList.Add('pstrong=2');
FParamList.Add('longLogin=-1');
FParamList.Add('llnick=');
FParamList.Add('sign=');
FParamList.Add('need_sign=');
FParamList.Add('isIgnore=');
FParamList.Add('popid=');
FParamList.Add('callback=');
FParamList.Add('not_duplite_str=');
FParamList.Add('need_user_id=');
FParamList.Add('from_encoding=');
FInfoGet.Request.ContentLength:=Length(FParamList.Text);