转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
使用ClientSocket控件实现CSDN论坛帖子的自动回复    热     ★★★★

使用ClientSocket控件实现CSDN论坛帖子的自动回复

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1438 更新时间：2009/4/23 18:37:52

                       使用ClientSocket控件实现CSDN论坛帖子的自动回复

    写此文章的目的不是要鼓励大家恶意灌水，而是要了解Http头信息传输的机制及Cookie的一些知识，讲之前大家先看一下下面我在CSDN所截获的回复帖子的Http包信息内容：


typestate=1&Point=0&TopicName=%B7%A2%CC%F9%B2%E2%CA%D4%A3%AC%CF%D0%C8%CB%CE%F0%BD%F8%A3%A1&Room=1404&Content=rt

//Point：分数0  TopicName：文章标题：发贴测试，闲人勿进！是经过unicode编码的   Content：内容： rt  上面是传递的参数

10.104.9.30(1062)->          //发送方IP及端口

10.104.9.30(80)                //接受方IP及端口
POST /Expert/PostNew_SQL.asp HTTP/1.1           //接受页面及HTTP版本
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */* 
Referer: http://expert.csdn.net/Expert/PostNew.asp?room=1404        //提交的地址
Accept-Language: zh-cn     //中文语言
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate            //接受压缩格式类型
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)      //用户环境
Host: expert.csdn.net                       //主机名称
Content-Length: 111                       //长度：111
Connection: Keep-Alive                  //保持激活状态
Cache-Control: no-cache               //没有使用缓存
Cookie: remenber=0; ASPSESSIONIDAAATSBBS=POHKDGIBFHAMPECBCDHIHBCD; room=0; username=dashi888; speaknum=0; speaktime=2003%2D5%2D15+11%3A56%3A34; adminok=True; userid=487815; info1=0; m%5Ftype=1; aszx=0a727a0323230cd62e4cf5326besba01; mid=476831      //COOKIE的内容

注：用户的Cookie是经过32位加密的，我们要先构造自己要发送的Http包信息

截图如下：

下面是代码部分：

unit submit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, NMURL, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    url: TNMURL;
    ClientSocket1: TClientSocket;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
    memo2: TMemo;
    Memo1: TMemo;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Button3: TButton;
    Timer1: TTimer;
    Button4: TButton;
    Timer2: TTimer;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
    TopicID,StartID,EndID:integer;
    DelayTime :integer;
    succ :boolean;
    procedure SendData();
    procedure BuildHttpHead();
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 clientsocket1.Active :=true;
 Button1.Enabled :=false;
 BuildHttpHead();
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
 StatusBar1.SimpleText:=''''连接出错！'''';
 errorcode:=0;   //出错代码
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
 s:string;
begin
 succ :=false;
 s:=socket.ReceiveText;
 if  (pos(''''200'''',s)<>0) then    //返回信息：200 OK，表示发送成功
 begin
  StatusBar1.SimpleText:=''''成功！'''';
  clientsocket1.Active :=false;
  succ :=true;
  Button1.Enabled :=true;
 end else
 begin
  StatusBar1.SimpleText:=''''失败！'''';
  clientsocket1.active:=true;
  succ :=false;
  Button1.Enabled :=false;
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DelayTime :=strtoint(trim(edit7.text));
  timer1.Interval :=DelayTime;
  timer1.Enabled :=True;
  clientsocket1.Active :=true;
  SendData;    //发送数据
end;

procedure TForm1.SendData;
var
 i:integer;
begin
  EndID :=StrToInt(trim(edit6.text));
  TopicID :=StrToInt(trim(edit4.text));
  if TopicID<EndID then
  begin
   Inc(TopicID);
   BuildHttpHead();   //构造Http头信息
   edit4.Text :=inttostr(TopicID);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   Button3.Enabled :=false;
   StartID :=StrToInt(trim(edit5.text));
   edit4.text :=inttostr(StartID);
   Timer1Timer(sender);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 timer1.Enabled :=false;
 clientsocket1.Active :=false;
 Button3.Enabled :=true;
end;

procedure TForm1.BuildHttpHead;
var
 sendp,sends,sendc:string;
begin

  //Http头信息
  sends:=''''POST /Expert/reply.asp HTTP/1.1''''+#13#10;
  sends:=sends+''''Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*''''+#13#10;
  sends:=sends+''''Accept-Language: zh-cn''''+#13#10;
  sends:=sends+''''Content-Type: application/x-www-form-urlencoded''''+#13#10;
  sends:=sends+''''Accept-Encoding: gzip, deflate''''+#13#10;
  sends:=sends+''''User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)''''+#13#10;
  sends:=sends+''''Host: expert.csdn.net''''+#13#10;
  sends:=sends+''''Cache-Control: no-cache''''+#13+#10;
  //构造Cookie信息
  if edit1.text<>'''''''' then
  begin
   url.InputString  :=trim(edit1.Text);
   sendp:=''''username=''''+url.Encode ;   //unicode编码
   sendc:=''''csdnname=''''+url.Encode ;
  end;
  if edit2.text<>'''''''' then
  begin
   url.InputString  :=trim(edit2.Text);
   sendp:=sendp+'''';userid=''''+url.Encode;
   sendc:=sendc+''''&csdnpassword=''''+url.Encode ;
  end;
  if edit3.text<>'''''''' then
  begin
   url.InputString  :=trim(edit3.Text);
   sendp:=sendp+'''';aszx=''''+url.Encode;
  end;
  sends:=sends+''''Cookie: ''''+sendp+#13+#10;
  //发送的内容
  url.inputstring:=trim(edit4.text);
  sendc:=sendc+''''&Topicid=''''+url.Encode;
  url.InputString  :=trim(memo1.Text);
  sendc:=sendc+''''&ReplyContent=''''+url.Encode;
  sendc:=sendc+''''&xmlReply=aaaaa'''';
  sends:=sends+''''Content-Length: ''''+inttostr(length(sendc))+#13#10;
  sends:=sends+''''Connection: Keep-Alive''''+#13+#10+#13#10 +sendc;
  memo2.Lines.Clear;

[1] [2]  下一页


[Delphi程序]使用Indy9+D7实现CSDN论坛的登录，回复，发贴，发…  [Web开发]CSDN 总结 精华 ASP 代码
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台