Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

I Made Devastation PW Autoclicker BOT #203

Hanya bot simple kok asli

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

Related Articles

4 Comments

    1. Oke thanks for ur reply,i’m sorry for my mistake,i forgot about how to use it
      1st go to sleep mode,choose the left click
      2nd u need to check in your PW Client where the deva box placed it,On Number shortcut? or On F1-F8 Key?
      for i example,i put the deva box on F2 in element client,set it on F2 key in my program
      3rd set the interval when the box will be clicked automatically,it depends to your ping,
      last FUCK it
      haha

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button