TIdHTTP 使用编写秒杀

最新推荐文章于 2022-09-22 14:52:40 发布

zhaodog

最新推荐文章于 2022-09-22 14:52:40 发布

阅读量1.3k

点赞数

文章标签： forms windows string class 2010

本文链接：https://blog.csdn.net/zhaodog/article/details/5802188

版权

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.