12-30-2009, 08:16 PM
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!
Code now
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
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!
Quote:!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 ClassIf 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