[TUT]How to make a simple Auto Clicker!

[Takari]

Well this is my first Tutorial so please give me some comments about this.

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:

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

Press F5 and it should start Debugging.
Than Save it.

That's all.
If you find any problems please comment.

[MoFkN iBoSS]

very nice tut but i wouldnt use this but anyways GJ

[Takari]

Well,If you don't play Runescape and FPS it's useless.

[MiamiSuicide]

Well,If you don't play Runescape and FPS it's useless.

how do autoclickers work on fps ?>

[iKingKiller]

Use Camtasie Studio 7 or something . Video is Better

[DayumKen]

how do autoclickers work on fps ?>

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:

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

Help?

[BossMan.]

Sorry but how do I compile/build it? I'm a total noob so don't flame me.

[benl]

F7 buddy press thanks it will be in the Release folder

[Jason]

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?

add this to Form1_Load

[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 -.-.

[Takari]

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 -.-.

What he said.Sorry for the bump,but this is Tut section...

[jomel599]

Visual C++ / Visual basic??

[wiyyyy]

thanks very nice tutorial

[Marines667]

ok it works in game until i get into a match then it stops

[Xizors]

NIce tut

[aLcohoL_95]

oh some1 bumped thiss thread and didnt close :S