Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


[REL] Simple Auto-Clicker
Goto page 1, 2  Next
 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
merlin22
Master Cheater
Ban
Reputation: 0

Joined: 29 Mar 2008
Posts: 267
PostPosted: Fri May 02, 2008 5:45 pm    Post subject: [REL] Simple Auto-Clicker Reply with quote
I just put this together, it may come useful to someone or whatever.

Screenshot:


Cant see download?
http://forum.cheatengine.org/files/merlin22_s_auto_clicker_122.rar

The Extension 'rar' was deactivated by an board admin, therefore this Attachment is not displayed.
Back to top
View user's profile Send private message AIM Address
lamamuffin
Expert Cheater
Reputation: 0

Joined: 08 Nov 2007
Posts: 223
PostPosted: Fri May 02, 2008 6:05 pm    Post subject: Reply with quote
Its be more helpful with some hotkeys, if it has some good job, hope this helps some people Smile
_________________
Intercourse.
Back to top
View user's profile Send private message
merlin22
Master Cheater
Ban
Reputation: 0

Joined: 29 Mar 2008
Posts: 267
PostPosted: Fri May 02, 2008 6:07 pm    Post subject: Reply with quote
lawlz, forgot to include them
Back to top
View user's profile Send private message AIM Address
92Garfield
I'm a spammer
Reputation: 57

Joined: 20 Dec 2007
Posts: 5871
Location: Banana Republic Germany
PostPosted: Fri May 02, 2008 7:02 pm    Post subject: Reply with quote
i alrdy got a better one..
may you make that user may choose hotkeys? would be 1337
_________________
Back to top
View user's profile Send private message
merlin22
Master Cheater
Ban
Reputation: 0

Joined: 29 Mar 2008
Posts: 267
PostPosted: Fri May 02, 2008 7:04 pm    Post subject: Reply with quote
wtf is 1337?
Back to top
View user's profile Send private message AIM Address
92Garfield
I'm a spammer
Reputation: 57

Joined: 20 Dec 2007
Posts: 5871
Location: Banana Republic Germany
PostPosted: Fri May 02, 2008 7:09 pm    Post subject: Reply with quote
merlin22 wrote:
wtf is 1337?

your auto clicker isnt
and thats leet:
1'm $0 ƒµ(|{1n9 £337 1 pwn ¥0µ!
(I'm so fucking leet i pwn you!)
_________________
Back to top
View user's profile Send private message
Snootae
Grandmaster Cheater
Reputation: 0

Joined: 16 Dec 2006
Posts: 969
Location: --->
PostPosted: Sat May 03, 2008 4:41 am    Post subject: Reply with quote
well i'm bored, lemme try make one in delphi real quick
_________________
Back to top
View user's profile Send private message
Snootae
Grandmaster Cheater
Reputation: 0

Joined: 16 Dec 2006
Posts: 969
Location: --->
PostPosted: Sat May 03, 2008 5:16 am    Post subject: Reply with quote
well i got bored and gave up, it doesn't work for some reason, i removed the hotkey thing cos it buggered up, may make it tomrow for ya, just to let you know, this is a real piss-poor effort, took about 3 minutes, just showing you how little code is needed

its attached, and here's source:

Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    TimerClicks: TTimer;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure OnClick(Sender: TObject);
    procedure TimerClicksTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IsStrANumber(const S: string): Boolean;
var
  P: PChar;
begin
  P      := PChar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Sleep(1500); //Wait for mouse to move
 if TimerClicks.enabled = false then
 begin
 if IsStrANumber(edit1.Text) = True then TimerClicks.Interval := StrToInt(Edit1.Text);
 TimerClicks.enabled := true;
 Exit
 end;

 if TimerClicks.enabled = true then
 begin
 TimerClicks.enabled := false;
 Exit
 end;
end;

procedure TForm1.OnClick(Sender: TObject);
begin
If Edit1.text = 'delay in ms' then Edit1.text := '' //Remove default text
end;

procedure TForm1.TimerClicksTimer(Sender: TObject);
begin
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

end.


The Extension 'rar' was deactivated by an board admin, therefore this Attachment is not displayed.

_________________
Back to top
View user's profile Send private message
92Garfield
I'm a spammer
Reputation: 57

Joined: 20 Dec 2007
Posts: 5871
Location: Banana Republic Germany
PostPosted: Sat May 03, 2008 5:29 am    Post subject: Reply with quote
lol your one isnt better no hotkeys just smaller but much files
_________________
Back to top
View user's profile Send private message
merlin22
Master Cheater
Ban
Reputation: 0

Joined: 29 Mar 2008
Posts: 267
PostPosted: Sat May 03, 2008 6:32 am    Post subject: Reply with quote
Snootae wrote:
well i got bored and gave up, it doesn't work for some reason, i removed the hotkey thing cos it buggered up, may make it tomrow for ya, just to let you know, this is a real piss-poor effort, took about 3 minutes, just showing you how little code is needed

its attached, and here's source:

Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    TimerClicks: TTimer;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure OnClick(Sender: TObject);
    procedure TimerClicksTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function IsStrANumber(const S: string): Boolean;
var
  P: PChar;
begin
  P      := PChar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Sleep(1500); //Wait for mouse to move
 if TimerClicks.enabled = false then
 begin
 if IsStrANumber(edit1.Text) = True then TimerClicks.Interval := StrToInt(Edit1.Text);
 TimerClicks.enabled := true;
 Exit
 end;

 if TimerClicks.enabled = true then
 begin
 TimerClicks.enabled := false;
 Exit
 end;
end;

procedure TForm1.OnClick(Sender: TObject);
begin
If Edit1.text = 'delay in ms' then Edit1.text := '' //Remove default text
end;

procedure TForm1.TimerClicksTimer(Sender: TObject);
begin
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

end.


You have to specify what "MOUSEEVENTF_LEFTUP" and "MOUSEEVENTF_LEFTDOWN" is.

As an example you cant just say kills "noob" when you didnt code what "noob" represented.
Back to top
View user's profile Send private message AIM Address
Snootae
Grandmaster Cheater
Reputation: 0

Joined: 16 Dec 2006
Posts: 969
Location: --->
PostPosted: Sat May 03, 2008 7:00 am    Post subject: Reply with quote
it's declared in there somewhere, probably in Windows
Code:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;


and garfield, that's cause i attached source
_________________
Back to top
View user's profile Send private message
merlin22
Master Cheater
Ban
Reputation: 0

Joined: 29 Mar 2008
Posts: 267
PostPosted: Sat May 03, 2008 7:07 am    Post subject: Reply with quote
Nice bot man.
Back to top
View user's profile Send private message AIM Address
NothingToShow
Grandmaster Cheater Supreme
Reputation: 0

Joined: 11 Jul 2007
Posts: 1579
PostPosted: Sat May 03, 2008 7:38 am    Post subject: Reply with quote
merlin22 wrote:
Nice bot man.

If you want hotkeys for it, you can use this simple way:
Create a timer, name it tHotkey and set the interval to 10.
In the onTimer procedure, do:
Code:
If odd(GetAsyncKeyState(vk_f1)) then
begin
tAutoClick.Enabled := True;
end;

I think that's the most easy way, not best, but easy.
And vk_f1 is F1.
Back to top
View user's profile Send private message
Snootae
Grandmaster Cheater
Reputation: 0

Joined: 16 Dec 2006
Posts: 969
Location: --->
PostPosted: Sat May 03, 2008 9:26 am    Post subject: Reply with quote
yeh moller, i knows (i hope you were talking about me)
i know you could use registerhotkey as well

but i don't know how to use changable hotkeys with that way, but with the KeyState i do

Code:
hotkey : Integer;


on buttonHotkeysClick
Code:
TimerHotKeys.enabled := true;


on TimerHotkeysTick
Code:
If odd(GetAsyncKeyState(vk_f1)) then
hotkey := vk_f1
TimerHotkeys.enabled := true;
begin


just add more of that if statment line but replace vk_f1 with what ever key, and keep adding for every key you want available, and then use the code moller supplied except

Code:
If odd(GetAsyncKeyState(hotkey)) then
begin
tAutoClick.Enabled := True;
end;


i put hotkey (the variable) instead of a vk


just add that stuff to my project for a nice easy autoclicker, with changable hotkeys
_________________
Back to top
View user's profile Send private message
Anden100
Grandmaster Cheater
Reputation: 0

Joined: 20 Apr 2007
Posts: 668
PostPosted: Sat May 03, 2008 9:39 am    Post subject: Reply with quote
Snootae wrote:
yeh moller, i knows (i hope you were talking about me)
i know you could use registerhotkey as well

but i don't know how to use changable hotkeys with that way, but with the KeyState i do

Code:
hotkey : Integer;


on buttonHotkeysClick
Code:
TimerHotKeys.enabled := true;


on TimerHotkeysTick
Code:
If odd(GetAsyncKeyState(vk_f1)) then
hotkey := vk_f1
TimerHotkeys.enabled := true;
begin


just add more of that if statment line but replace vk_f1 with what ever key, and keep adding for every key you want available, and then use the code moller supplied except

Code:
If odd(GetAsyncKeyState(hotkey)) then
begin
tAutoClick.Enabled := True;
end;


i put hotkey (the variable) instead of a vk


just add that stuff to my project for a nice easy autoclicker, with changable hotkeys


or just?:

Code:
if odd(GetAsyncKeyState(hotkey1.hotkey) then
...


Then drag a THotkey to your project...
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites