[TUT]How to make a Simple Auto Clicker!

[DeathHunter]

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.

Credits:
VBFX~For the code.
©®o$s ƒi®E™~for writing the tut.
That's all.
If you find any problems please comment.

Here A video:
[/COLOR]

[[U]lixa]

WoW

Thanks So Much

Will try To Do One

lol!

[HolySinX]

Gawd.. Visual basic...

[icones3]

lolić lolič

[Julma Henri]

''QUESTION''

[DeathHunter]

Ya,just ask...

[Julma Henri]

it says 4 errors and i did everything in that video!
can u please say why?

[Spookerzz]

Maybe it isn't declared?

[DeathHunter]

What operation system and bit you have?

[heydiddledagain]

Ok, I am still trying to make this work, I wanna make it to where, its not auto- its only repeating mouse clicks , while you hold down the mouse, since these autoclickers work in game, and my macro wont, how could I add this to make , for instance a fully auto pistol,

;
; AutoHotkey Version: 1.x
; Language: English
; Platform: Win9x/NT
; Author: A.N.Other <myemail@nowhere.com>
;
; Script Function:
; Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder)
;

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
$Lbutton::
Loop
{
Sleep, 10 ; adjust delay by changing this value.
; approximately 10 is the minimum to be used to
; reliably detect change button release

GetKeyState, state, Lbutton, P
if state = U ; The key has been released, so break out of the loop.
break

; tested by sending a character
; send z
Click

}
return

[DeathHunter]

I didn't understand what you said by this:

Ok, I am still trying to make this work, I wanna make it to where, its not auto- its only repeating mouse clicks , while you hold down the mouse, since these autoclickers work in game, and my macro wont, how could I add this to make , for instance a fully auto pistol,

[MvRouC12]

Visual Basic FOR THE WIN! ^_^

[ksharky8888]

where are your comments girl...tut tut tut

[P0SEID0N]

umm shut the fuck up?

[AX3-]

Lol what is an auto clicker?