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

INICO

WEB@

ola este es mi keko uper azul

:D proNto sere uper blanco}

Y SIENDO UPER BLANCO 

DARE UNOS REGALOS AKI 

EN LA PAGINA WEB@

ESPERENLOO YO LES 

AVISARE SI SON PADS

GRASIAS MEJORARE

LA PAGINA CUANDO YA 

LE AGARRE MAS O 

MENOS XD

en persona me llamo edwin 

y mi color favoritoo

es el cafee y el rojoo

como se llaman ustedes y 

cual esa su color favoritoo 

¿? me keko es rhino97

es el unicoo XD 

k e tenido

y conoci la pagina

de boombang

grasias a un bro k se llama 

haloskt C: lo conosco en persona

se llama emanuel y 

tiene un ermanoo llamado 

ramiro eso es todo lo k digo

saludos a todos los 

k visitan mi web

esta foto la tome en mi casa 

cuando era uper verde

XD me gustaba ser dj 

aun me sige gustando ser dj

coando soy uper verdee XD

aunke ya soy azul pero

apor mi blancoooooo

G: deseen suerte en golden

saludos alos k visitan mi weba

href="http://contador-de-visitas.com">contador de visitas
contador de visitas