1,593
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.SB_DLClick(Sender: TObject);
var
url:string;
Param:TStringList;
RStream:TStringStream;
begin
url:='http://www.cnlinfo.net/login.aspx';
idpost.Request.Referer:='http://www.cnlinfo.net/login.aspx';
idpost.Request.Host:='www.cnlinfo.net';
IDpost.Request.SetHeaders;
IDpost.Request.RawHeaders.Clear;
IDpost.HandleRedirects := true;
IDpost.HTTPOptions := IDpost.HTTPOptions + [hoKeepOrigProtocol];
IDpost.ProtocolVersion := pv1_1;
IDpost.Request.Accept := '*/*';
IDpost.Request.AcceptLanguage := 'zh-cn';
IDpost.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14.52; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; Tablet PC 2.0)';
IDpost.Request.Connection := 'Keep-Alive';
IDpost.Request.CacheControl := 'no-cache';
IDpost.Request.ContentType := 'application/x-www-form-urlencoded';
//idpost.Request.ContentType:='multipart/form-data';
param:=TStringList.Create;
Rstream:=TStringStream.Create('');
param.Add('__VIEWSTATE='+chstrid+'');//验证字符串存于页面name="__VIEWSTATE",启动时GET网页提取并赋值给CHSTRID
param.Add('tbx_Name=go2013');
param.Add('tbx_pwd=go2013');
param.Add('Txt_code='+Edit3.Text+'');//验证码
param.Add('Img_Btn.x=64');
param.Add('Img_Btn.y=23');
idpost.post(url,param,Rstream);
memo1.Text:=utf8toansi(Rstream.DataString);
Rstream.Free;
end;
//先加个全局变量
urlRedirect: string
//----------------
Param.Add('tbx_Name=go2013');
Param.Add('tbx_pwd=go2013');
Param.Add('Txt_code=' + Edit1.Text + ''); // 验证码
Param.Add('Img_Btn.x=64');
Param.Add('Img_Btn.y=23');
try
Http.post(URL, Param, RStream);
Memo1.Text := RStream.DataString;
except
end;
Memo1.Text := Http.Get(urlRedirect);
RStream.Free;
Param.Free;
end;
procedure TForm1.HttpRedirect(Sender: TObject; var dest: string;
var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
Memo2.Lines.Add(Format('dest=%s, NumRedir=%d, VMethod=%s', [dest, NumRedirect, VMethod]));
if Pos('http://fa1.cnlinfo.net/vip/url.aspx', dest) > 0 then
urlRedirect := dest;
end;