COMO CREAR UN AUTOCLICK SENCILLO

Hola a Todos, aca hice un tutorial para hacer un AutoClicker en VisualBasic, es un  muy sensillo en el cual unicamente usaremos: 

3 Comand: 
cmd1 ' es para empesar los clicks isquierdos. 
cmd2 ' es para empesar los click derechos. 
cmd3 ' es para finalizar ambos. 
Una ScrollBar: 
HScroll1 ' es para determinar los clicks por segundo. 
Un Label: 
Label6 ' Dice en numeros la cantidad de clicks que va a hacer por segundo. 
Dos Timer: 
Timer1 ' Es el  de hacer clickear al boton isquierdo 
Timer2 ' Es el encargado de hacer clickear al boton  

Bueno una ves que tenemos creados todos estos componentes vamos a las declaraciones... 
Primero que todo vamos a declarar unos API:
 

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 MouseLeftDown = &H2 ' Hace el click isquierdo 
Private Const MouseLeftUp = &H4 ' Desclickea el click derecho 
Private Const MouseRightdown = &H4 ' Hace Click derecho 
Private Const MouseRightup = &H4 ' Desclickea el click derecho 

sEsto de clickear y desclickear es por que de otra manera , seria un click isquierdo constante, es decir largo. 

Bueno lo siguiente que vamos a hacer es darle el intervalo a los timer, para eso esta la scrollbar, entonces ponesmos: 

Private Sub Form_load() 
Timer1.Interval = HScroll1.Value ' Intervalo dle timer 1 
Timer2.Interval = HScroll1.Value ' Intervalo dle timer 2 
Timer1.Enabled = False ' Es para decir que el timer1 no empiece nivien empiesa el programa 
Timer2.Enabled = False ' Es para decir que el timer2 no empiece nivien empiesa el programa 
End Sub 

Listo una vez que terminamos con eso , vamos a declarar que haran los timer 1(Clicks isquierdos) y 2(Clicks derechos) Ponemos: 

Private Sub Timer1_Timer() 
mouse_event MouseLeftDown, 0, 0, 0, 0 ' Click isquierdo 
mouse_event MouseLeftUp, 0, 0, 0, 0 ' Desclickea 
End Sub 

Private Sub Timer2_Timer() 
mouse_event MouseRightdown, 0, 0, 0, 0 ' Click derecho 
mouse_event MouseRightup, 0, 0, 0, 0 ' Desclickea 
End Sub 

h
Ahora ponemos los  para activar y desactivar los timer y por lo tanto los clicks... 

Private Sub cmd1_Click() 
Timer1.Enabled = True 
End Sub 

Private Sub cmd2_Click() 
Timer2.Enabled = True 
End Sub 

Private Sub cmd3_Click() 
Timer1.Enabled = False 
Timer2.Enabled = False 
End Sub 

aY fianalmente le damos el valor a Label que aviamos creado, para determinar los click por segundo. 


Private Sub HScroll1_Change() 
Label6.Caption = HScroll1.Value ' El label 6 ,a tener el mismo valor que el scrollbarr , que era para determinar clicks por segundo... 
End Sub 

SI NO LE ENTENDIERON AKI LES DEJO UN VIDEO 

TUTORIA DE COMO CREAR UN AUTOCLIK xd

c: ESPERO K LE ENTIENDAN