[C&P]Autoclicker.

[p1g 0wnz]

C&P Stands for copy and paste.

Autoclicker can be used for good and evil.

Good example = You are AFK, doing something really important that just uses no mouse moving

Evil example = Cheating in games.


Btw in this autoclicker it includes Prank!

!Tools needed!

8 buttons

Button 1... Start

button 2. Stop

Button 3. Test

Button 4. Rester Tester

Button 5. Slow

Button 6. Medium

Button 7. Fast

Button 8. X-tra super fast

--

1 textbox

textbox1. 0

It's the number Zero.

Read only = true

---

1 Timer.

You can put the interval as you want it to start! i recommend 1000.

----

1 checkbox

checkbox 1 .. Hide

Code now

Code:

Public Class Form1
    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 TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    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 Timer1.Tick
        mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text += 1

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = 0
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Timer1.Interval = 1000
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Timer1.Interval = 100

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Timer1.Interval = 10
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Timer1.Interval = 1
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Me.Hide()
        ShowInTaskbar = False
    End Sub
End Class

If you get any error please tell me!

Btw there is a vid ! here

http://www.youtube.com/watch?v=kLxkAs6nZL8

The prank can make you do something you regret. So be careful with that evil prank! It's funny if you know your friend wont lose anything such as hard work text file. Or just any hard work project that was unsaved! ;).

-P1g 0wnz

[flAmingw0rm]

Great tut dude, thank you. I will try this!

[Jordan L.]

Auto Clickers are very basic in VB.Net, you can find tons of tutorials on YouTube. I remember, it was my first 'project' when I tried learning VB. But nice work ;)

[p1g 0wnz]

Yeh, it's very basic. But as i am new, this is hard for me . So i would like to share what was hard for me. If it's hard for me i believe it is hard for others beginners aswell

[RaZoR03]

Very nice dude..

[tudse145]

I only got 1 question how do I get this thing working on my laptop?

[º¤øĐőŘđĘø¤º]

lol good question xD

[Reflex?]

Thanks for tutorial, this also works 100% on my laptop thanks !

[Zubb]

I really hate auto clickers.

The just go in a never ending loop and are impossible to stop :|

[`P R O D I G Y™]

Compiled & ran, this is sexy im editing my gui to look ownage though