[TUT]How to make a simple Auto Clicker!
[TUT]How to make a simple Auto Clicker!
Well this is my first Tutorial so please give me some comments about this.
What we will do in this tutorial?
I will split this tutorial in 3 parts.1 part is for the button,2 part is for the GUI and things like that and 3 part is for coding.
First Part:
First,Open Microsoft Visual Basic 2008 Express Edition.
When it open press Ctrl+N.
Choose Windows Forms Applications and name it Simple Auto Clicker,and click OK.
You will need 3 Labels.
The label1 text should be F5 = Start
The label2 text should be F6 = Stop
The label3 text should be Speed of the clicks.
Than you will need 1 Textbox.
This should be under Speed of the clicks or beside it.
Than you will need 2 Timers.
Change Timer1 name to Hotkeys.
Enable do it False.
And Interval do it 1.
Change Timer2 name to Clicks.
Than just change Interval do 1000.
Part 2:
Click on Form1.
And go on Properties.
Change Maximize Box,Minimize Box and Show Icon to False.
Than change TopMost to True.
Don't do the background(GUI)so big do it like 300 , 150.
Part 3:
So this will be the coding.
Double Click On Form1 and Delete Everything in there.
Than copy and paste this code:
Press F5 and it should start Debugging.
Than Save it.
That's all.
If you find any problems please comment.
What we will do in this tutorial?
- A simple Auto Clicker.
Hotkeys.
Interval
& more!
I will split this tutorial in 3 parts.1 part is for the button,2 part is for the GUI and things like that and 3 part is for coding.
First Part:
First,Open Microsoft Visual Basic 2008 Express Edition.
When it open press Ctrl+N.
Choose Windows Forms Applications and name it Simple Auto Clicker,and click OK.
You will need 3 Labels.
The label1 text should be F5 = Start
The label2 text should be F6 = Stop
The label3 text should be Speed of the clicks.
Than you will need 1 Textbox.
This should be under Speed of the clicks or beside it.
Than you will need 2 Timers.
Change Timer1 name to Hotkeys.
Enable do it False.
And Interval do it 1.
Change Timer2 name to Clicks.
Than just change Interval do 1000.
Part 2:
Click on Form1.
And go on Properties.
Change Maximize Box,Minimize Box and Show Icon to False.
Than change TopMost to True.
Don't do the background(GUI)so big do it like 300 , 150.
Part 3:
So this will be the coding.
Double Click On Form1 and Delete Everything in there.
Than copy and paste this code:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const mouseclickup = 4
Private Const mouseclickdown = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkeys.Tick
Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.F5)
If Hotkey1 = True Then
Clicks.Start()
End If
Dim Hotkey2 As Boolean
Hotkey2 = GetAsyncKeyState(Keys.F6)
If Hotkey2 = True Then
Clicks.Stop()
End If
End Sub
Private Sub Click_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clicks.Tick
Clicks.Interval = TextBox1.Text
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End Class
Than Save it.
That's all.
If you find any problems please comment.
very nice tut but i wouldnt use this but anyways GJ
Well,If you don't play Runescape and FPS it's useless.
Originally Posted by Takari
Well,If you don't play Runescape and FPS it's useless.
Originally Posted by MiamiSuicide
how do autoclickers work on fps ?>
Ontopic:
It doesn't work for me. There are no errors but when I press the hotkey, it doesn't work. Here is my code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const mouseclickup = 4
Private Const mouseclickdown = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkeys.Tick
Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.F11)
If Hotkey1 = True Then
Clicks.Start()
End If
Dim Hotkey2 As Boolean
Hotkey2 = GetAsyncKeyState(Keys.F12)
If Hotkey2 = True Then
Clicks.Stop()
End If
End Sub
Private Sub Click_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clicks.Tick
Clicks.Interval = TextBox1.Text
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End Class
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const mouseclickup = 4
Private Const mouseclickdown = 2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkeys.Tick
Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.F11)
If Hotkey1 = True Then
Clicks.Start()
End If
Dim Hotkey2 As Boolean
Hotkey2 = GetAsyncKeyState(Keys.F12)
If Hotkey2 = True Then
Clicks.Stop()
End If
End Sub
Private Sub Click_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clicks.Tick
Clicks.Interval = TextBox1.Text
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End Class
Originally Posted by DayumKen
Auto shooting. >.>
Ontopic:
It doesn't work for me. There are no errors but when I press the hotkey, it doesn't work. Here is my code:
Help?
[php]
Timer1.Start()
[/php]
If that's not your problem add the following import
[php]
Imports System.Runtime.InteropServices
[/php]
then DELETE this line from your declarations:
[php]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
[/php]
and replace it with this:
[php]
<DllImport("user32.dll")> _
Private Shared Function GetAsyncKeyState(ByVal vKey As Integer) As UShort
[/php]
....that should be it.
And to think you released an injector without giving credits to the leeched source -.-.
Originally Posted by Jason
add this to Form1_Load
[php]
Timer1.Start()
[/php]
If that's not your problem add the following import
[php]
Imports System.Runtime****teropServices
[/php]
then DELETE this line from your declarations:
[php]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
[/php]
and replace it with this:
[php]
<DllImport("user32.dll")> _
Private Shared Function GetAsyncKeyState(ByVal vKey As Integer) As UShort
[/php]
....that should be it.
And to think you released an injector without giving credits to the leeched source -.-.
[php]
Timer1.Start()
[/php]
If that's not your problem add the following import
[php]
Imports System.Runtime****teropServices
[/php]
then DELETE this line from your declarations:
[php]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
[/php]
and replace it with this:
[php]
<DllImport("user32.dll")> _
Private Shared Function GetAsyncKeyState(ByVal vKey As Integer) As UShort
[/php]
....that should be it.
And to think you released an injector without giving credits to the leeched source -.-.
Use Camtasie Studio 7 or something . Video is Better
Sorry but how do I compile/build it? I'm a total noob so don't flame me.
F7 buddy press thanks it will be in the Release folder
Visual C++ / Visual basic??
thanks very nice tutorial
ok it works in game until i get into a match then it stops
NIce tut 
oh some1 bumped thiss thread and didnt close :S
This thread is closed for replies.
