ufrmmain.~pas

一个自动投票的作弊工具。 近日单位服务明星投票

unit uFrmMain;

interface

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

type
  TFrmMain = class(TForm)
    btnSet: TButton;
    btnGetIP: TButton;
    Button2: TButton;
    edtIP: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    edtMask: TEdit;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure btnGetIPClick(Sender: TObject);
    procedure btnSetClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    procedure setip(local,ip,mask,gate:string);
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses Winsock,Registry,uSock;

{$R *.dfm}

procedure TFrmMain.btnGetIPClick(Sender: TObject);
var
  i : integer;
begin
  if not EnumInterfaces then
  begin
    application.MessageBox('获取IP地址失败，请检查系统！','提示',MB_ICONSTOP + MB_OK);
    exit;
  end;
  for i := 0 to High(g_IPInfo) do
  begin
    if (g_IPInfo[i].sIP = '127.0.0.1') and (i <> High(g_IPInfo)) then continue;
    edtIP.Text := g_IPInfo[i].sIP;
    edtMask.Text := g_IPInfo[i].sMask;
    exit;
  end;
end;

procedure TFrmMain.Button2Click(Sender: TObject);
begin
  close;
end;

(* 如果通过写注册表来实现的话，可以直接使用WriteString来写入 *)
procedure TFrmMain.btnSetClick(Sender: TObject);
begin
  winexec(pchar('netsh interface ip set address "本地连接" static ' + edtip.Text + ' ' + edtMask.Text),sw_hide);
end;

procedure TFrmMain.Button1Click(Sender: TObject);
begin
  setip(edit1.Text,trim(edit2.Text)+'212','255.255.255.0 ',edit3.Text);
end;
procedure TFrmMain.setip(local,ip,mask,gate:string);
begin
  winexec(pchar('netsh interface ip set address "'+local+
   '" static '+ip+' '+MASK+' '+GATE+' 1'),sw_hide);
end;
procedure TFrmMain.Button3Click(Sender: TObject);
var
  request :tstringlist;
  response:tstringstream;
  url:string;
begin
  request:=tstringlist.Create ;
  response:=tstringstream.Create('');
  request.Add('SurveyPaperId=82');
  request.Add('SubjectId=""');
  request.Add('hidtxt_258=1');
  request.Add('sQuestionId=258');
  request.Add('submit=提  交');
  request.Add('Q_258=715');

  url:='http://93.1.14.18/SurveyPaper/SubmitSurveyPaper.asp';
  try
    idhttp1.Post(url,request,response);
  except

  end;
  //showmessage(response.DataString);
  
end;

procedure TFrmMain.Button4Click(Sender: TObject);
var
  i:integer;
begin
{  for i:=1 to 250 do
    begin
      setip(edit1.Text,trim(edit2.Text)+inttostr(i),'255.255.255.0 ',edit3.Text);
      sleep(30000);
      application.ProcessMessages;
      button3.Click;
      sleep(1000);
      button3.Click;
      sleep(1000);
    end;
  showmessage('ok');}
      //setip(edit1.Text,trim(edit2.Text)+inttostr(i),'255.255.255.0 ',edit3.Text);
      //sleep(30000);
      //application.ProcessMessages;
      button3.Click;
      sleep(2000);
      button3.Click;
      sleep(2000);
      halt;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
 FrmMain.Hide;
end;

procedure TFrmMain.Timer1Timer(Sender: TObject);
begin
button4.Click;
end;

end.