I Made Devastation PW Autoclicker BOT #203

andrypein.net : Sedikit curhat, dulu sempat saya skrinsut dan saya aplod file bot nya, namun karena tidak ter bek ap karena situs screenshot dan situs file upload nya modar ahirnya tidak ter bek ap.

Sadge

Tapi yang pasti aing bisa bikin program autoclicker bot sederhana untuk game PW ini yang tugas nya cuma ngeklik-ngeklik doang.

Untungnya aing masih nyimpan full source nya, ane postingkan saja karena malas compile dan build ulang, yang pasti source dibawah ini adalah bot untuk ngeklik-ngeklik.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons,
  Vcl.Samples.Spin, Vcl.ComCtrls, Vcl.Imaging.jpeg, shellapi;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Timer1: TTimer;
    RadioGroup1: TRadioGroup;
    mulai: TBitBtn;
    stop: TBitBtn;
    comboangka: TComboBox;
    combohuruf: TComboBox;
    Label1: TLabel;
    waktu: TSpinEdit;
    Label2: TLabel;
    recomen: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure recomenClick(Sender: TObject);
    procedure stopClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mulaiClick(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Enabled:=false;
  Form1.Caption:='Devastation Pack PW AutoClicker';
  application.Title:='Y U no kiss me';
  stop.Enabled:=false;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
  shellexecute(handle,'open','http://andry-pein.blogspot.com',nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  form1.Cursor:=crHandPoint;
  form1.image1.hint:='visit';
end;

procedure TForm1.mulaiClick(Sender: TObject);
begin
  if ((radiobutton1.Checked = false) or (radiobutton2.Checked = false)) and (radiogroup1.ItemIndex = -1) then
    begin
      showmessage('choose the function');
      timer1.Enabled:=false;
      exit;
    end
  else if waktu.Value <=0 then
    begin
      showmessage('u have been trolled');
      timer1.Enabled:=false;
      exit;
    end
  else
    begin
      timer1.Enabled:=true;
      stop.Enabled:=true;
      mulai.Enabled:=false;
      timer1.Interval:=waktu.Value*1000;
    end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  combohuruf.Enabled:=false;
  comboangka.Enabled:=true;
  comboangka.ItemIndex:=-1;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  comboangka.Enabled:=false;
  combohuruf.Enabled:=true;
  combohuruf.ItemIndex:=-1;
end;

procedure TForm1.recomenClick(Sender: TObject);
begin
  waktu.Value:=5;
end;

procedure TForm1.stopClick(Sender: TObject);
begin
  timer1.Enabled:=false;
  mulai.Enabled:=true;
  stop.Enabled:=false;
end;

end.

*AFK