unit1.pas

论坛 BBS 灌水机 广告机 论坛灌水机 v1.0 用于论坛离线发贴

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP ,StrUtils, HTTPApp, Buttons;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Memo1: TMemo;
    Button3: TButton;
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Button2: TButton;
    Edit8: TEdit;
    Edit9: TEdit;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Label10: TLabel;
    Edit10: TEdit;
    SpeedButton1: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    
  public
    
  end;

var
  Form1: TForm1;
const   BaseURL = 'http://www.lsit.net/dvbbs70/'; 
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  CookieNone = 0;
  CookieDay = 1;
  CookieMonth = 2; 
  CookieYear = 3; 
  UserNormal = 2;
  UserHidden = 1;
var
  Params: TStrings;
  HTML,UserName,Password : String;
  MD5Pass: String;
  p1,p2,BoardID: Integer;
  aStream:TStringStream;
begin
  if Trim(edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入用户名！！', '信息提示', MB_OK + MB_ICONWARNING);
    edit2.SetFocus;
    Exit;
  end;
  if (edit2.Text)='' then
  begin
    MessageBox(Handle, '请输入密码！！', '信息提示', MB_OK + MB_ICONWARNING);
    edit1.SetFocus;
    Exit;
  end;
  if Trim(edit3.Text)='' then
  begin
    MessageBox(Handle, '请输入标题！！', '信息提示', MB_OK + MB_ICONWARNING);
    edit3.SetFocus;
    Exit;
  end;
  if (Memo1.Text)='' then
  begin
    MessageBox(Handle, '请输入内容！！', '信息提示', MB_OK + MB_ICONWARNING);
    Memo1.SetFocus;
    Exit;
  end;
  BoardID:=strtoint(edit10.Text); 
  if checkbox1.Checked then
  begin
    IdHttp1.ProxyParams.ProxyServer:=edit4.Text;
    IdHttp1.ProxyParams.ProxyPort:=Strtoint(edit5.Text);
    IdHttp1.ProxyParams.ProxyUsername:=edit6.Text;
    IdHttp1.ProxyParams.ProxyPassword:=edit7.Text;
  end
  else
  begin
    IdHttp1.ProxyParams.ProxyServer:='';
    IdHttp1.ProxyParams.ProxyPort:=0;
    IdHttp1.ProxyParams.ProxyUsername:='';
    IdHttp1.ProxyParams.ProxyPassword:='';
  end;
  UserName := edit1.Text; 
  Password := edit2.Text; 
  Params:=TStringList.Create;
  aStream := TStringStream.Create('');
  try
  Params.Add('username='+UserName);
  Params.Add('password='+Password);
  Params.Add('CookieNone=0');
  Params.Add('userhidden='+InttoStr(UserNormal));
  Params.Add('comeurl='+BASEURL+'index.asp');
  try
  HTML:=IdHttp1.Post(BaseURL+'login.asp?action=chk',Params);
  if Pos(BASEURL+'index.asp',HTML)=0 then
  begin
    MessageBox(Handle, '登录失败,用户名或密码错误！', '贝壳提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON2 + MB_TOPMOST);
    Exit;
  end;
  except
    MessageBox(Handle, '登录失败,用户名或密码错误！', '贝壳提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON2 + MB_TOPMOST);
    Exit;
  end;
  HTML:=IdHttp1.Get(BASEURL+'post.asp?action=new&boardid='+InttoStr(BoardID));
  p1:=Pos('type=password value=',HTML);
  if p1=0 then
  begin
    ShowMessage('发送失败!!!!!1！');
    Exit;
  end;
  Inc(p1,21);
  MD5Pass:=Copy(HTML,P1,16);
  Params.Clear;
  Params.Add('Body='+memo1.Text);
  Params.Add('upfilerename=');
  Params.Add('dvbbs=Dcompanylsitdvbbs70');
  Params.Add('star=1');
  Params.Add('page=1');
  Params.Add('TotalUseTable=dv_bbs1');
  Params.Add('username='+edit1.Text);
  Params.Add('passwd='+MD5Pass);
  Params.Add('font=');
  Params.Add('topic='+edit3.Text);   
  Params.Add('Expression=face1.gif');
  Params.Add('signflag='+'yes'); 
  Params.Add('emailflag=0');
  form1.Caption:='发送之中.........';
  IdHttp1.Request.Referer:=BASEURL+'post.asp?action=new&boardid='+InttoStr(BoardID);
  Sleep(8000);
  form1.Caption:='计算机学校论坛专业离线发贴机---切误用于灌水';
  HTML:=IdHttp1.Post(BaseURL+'SavePost.asp?Action=snew&boardid='+InttoStr(BoardID),Params);
  if Pos('错误信息',HTML)>0 then       
    MessageBox(Handle, '发帖不成功！', '贝壳提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON2 + MB_TOPMOST)
  else
    MessageBox(Handle, '发帖成功！', '贝壳提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON2 + MB_TOPMOST);
  finally
    Params.Free;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
const
  CookieNone = 0; 
  CookieDay = 1; 
  CookieMonth = 2; 
  CookieYear = 3; 

  UserNormal = 2; 
  UserHidden = 1; 

  BoardID = 3; 
  var
  Params: TStrings;
  HTML,UserName,Password : String;
  MD5Pass: String;
  p1,p2: Integer;
  aStream:TStringStream;
begin
  if Trim(edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入用户名！！', '信息提示', MB_OK + MB_ICONWARNING);
    edit2.SetFocus;
    Exit;
  end;
  if (edit2.Text)='' then
  begin
    MessageBox(Handle, '请输入密码！！', '信息提示', MB_OK + MB_ICONWARNING);
    edit1.SetFocus;
    Exit;
  end;
  if checkbox1.Checked then
  begin
    IdHttp1.ProxyParams.ProxyServer:=edit4.Text;
    IdHttp1.ProxyParams.ProxyPort:=Strtoint(edit5.Text);
    IdHttp1.ProxyParams.ProxyUsername:=edit6.Text;
    IdHttp1.ProxyParams.ProxyPassword:=edit7.Text;
  end
  else
  begin
    IdHttp1.ProxyParams.ProxyServer:='';
    IdHttp1.ProxyParams.ProxyPort:=0;
    IdHttp1.ProxyParams.ProxyUsername:='';
    IdHttp1.ProxyParams.ProxyPassword:='';
  end;
  UserName := edit1.Text; 
  Password := edit2.Text; 
  Params:=TStringList.Create;
  aStream := TStringStream.Create('');
  try
  Params.Add('username='+UserName);
  Params.Add('password='+Password);
  Params.Add('CookieDate='+InttoStr(CookieYear));
  Params.Add('userhidden='+InttoStr(UserNormal));
  Params.Add('comeurl='+BASEURL+'index.asp');
  HTML:=IdHttp1.Post(BaseURL+'login.asp?action=chk',Params);
  if Pos(BASEURL+'login.asp',HTML)=0 then
  begin
    Exit;
  end;
  except
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  GroupBox1.Enabled:=Checkbox1.Checked;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in['0'..'9','.',#8,#13]) then Key:=#0;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  If Not(Key in['0'..'9',#13,#8]) then Key:=#0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit9.Text:=HTTPDecode(Edit8.Text);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0:
      begin
        Edit10.Text:='14';
      end;
    1:
      begin
        Edit10.Text:='15';
      end;
    2:
      begin
        Edit10.Text:='16';
      end;
    3:
      begin
        Edit10.Text:='17';
      end;
    4:
      begin
        Edit10.Text:='2';
      end;
    5:
      begin
        Edit10.Text:='3';
      end;
    6:
      begin
        Edit10.Text:='7';
      end;
    7:
      begin
        Edit10.Text:='33';
      end;
    8:
      begin
        Edit10.Text:='31';
      end;
    9:
      begin
        Edit10.Text:='30';
      end;
    10:
      begin
        Edit10.Text:='32';
      end;
    11:
      begin
        Edit10.Text:='25';
      end;
    12:
      begin
        Edit10.Text:='29';
      end;
    13:
      begin
        Edit10.Text:='5';
      end;
    14:
      begin
        Edit10.Text:='6';
      end;
  end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MessageBox(Handle, '本软件可以免费传播,如果出现违法或者其它' + #13#10#13#10
    + '责任行为,无本工作室无关.'+#13#10#13#10
    +'切误用于灌水,,切记切记!!后果自负  ' + #13#10 + ' ' + #13#10 +
    '    QQ:280534828' + #13#10 + 
    '          贝壳软件工作室' + #13#10 + '                    2005-10-10',
    '提示标语', MB_OK + MB_ICONQUESTION + MB_TOPMOST);
end;

end.