TIdHTTP 编写秒杀很简单,最主要是分析post的数据,
下载httpwatch ,先试着提交一次,通过分析post数据,查找post数据的规律
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, IdCookieManager, IdAntiFreezeBase, IdAntiFreeze;
type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
btn1: TButton;
IdAntiFreeze1: TIdAntiFreeze;
IdCookieManager1: TIdCookieManager;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
NET_ADDRESS='http://hb.qq.com/zt/2010/hjms/index.htm';
NET_ADDRESS1='http://act3.hb.qq.com/5040/join/save.do';
procedure TForm1.btn1Click(Sender: TObject);
var
sResult:string;
PostData:TStringList;
RespData: TStringStream;
begin
PostData:=TStringList.Create();
RespData:=TStringStream.Create('');
PostData.Add('info[content]='#$ca#$b1);
PostData.Add('info[field_1]=123456');
PostData.Add('info[id]=');
PostData.Add('info[title]=abc');
PostData.Add('opt=update');
IdHTTP1.Post(NET_ADDRESS1,PostData,RespData);
ShowMessage(RespData.DataString);
RespData.Free;
PostData.Free;
end;
end.