How to make an Auto Clicker!
This took me 15 minutes to make and it takes you 10 seconds to press Thanks Button.
--------------------------------------------------------------------------------------------------------------------------------
BUTTONS AND STUFF:
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.
Add 1 Textbox.
This should be under Speed of the clicks or beside it.
Add 2 Timers.
Change Timer1 name to Hotkeys.
Enable do it False.
And Interval do it 1.
Change Timer2 name to Clicks.
Then just change Interval do 1000.
--------------------------------------------------------------------------------------------------------------------------------
FORM:
Click on Form1.
And go on Properties.
Change Maximize Box,Minimize Box and Show Icon to False.
Than change TopMost to True.
----------------------------------------------------------------------------------------------------------------------------------
CODING:
Double Click On Form1 and Delete Everything in there.
Then copy and paste this code:
Screen shots:
Credits:
VBFX for the source code.
Takari for writing all the tutorial.
--------------------------------------------------------------------------------------------------------------------------------
BUTTONS AND STUFF:
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.
Add 1 Textbox.
This should be under Speed of the clicks or beside it.
Add 2 Timers.
Change Timer1 name to Hotkeys.
Enable do it False.
And Interval do it 1.
Change Timer2 name to Clicks.
Then just change Interval do 1000.
--------------------------------------------------------------------------------------------------------------------------------
FORM:
Click on Form1.
And go on Properties.
Change Maximize Box,Minimize Box and Show Icon to False.
Than change TopMost to True.
----------------------------------------------------------------------------------------------------------------------------------
CODING:
Double Click On Form1 and Delete Everything in there.
Then copy and paste this code:
Code:
//Takari DON'T LEACH 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) //Takari DON'T LEACH THIS CODE!
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 //Takari DON'T LEACH THIS CODE!
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
Screen shots:
Credits:
VBFX for the source code.
Takari for writing all the tutorial.
Originally Posted by toobad
other stuff i have made worked fine , like keyloggers and stuff xD
Il press thanx