Release Creare un autoclick

[pierpy-fabian]

Per fare un autoclick bisogna mettere :

2 Button;
1 Textbox;
1 Timer; (Con propieta Enabled = False e Interval = 1)

All'inizio del codice mettete:

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
Private Const MOUSELEFTUP = &H4
Nel Bottone Che Sara Start:

Timer1.Interval = Textbox1.Text
Timer1.Enabled = True
Nel Bottone Che Sara Stop:

Timer1.Enabled = False
Nel Timer:

mouse event MOUSELEFTDOWN, 0, 0, 0, 0
mouse_event MOUSELEFTUP, 0, 0, 0, 0

 

[XxgaldexX]

Carino anche se per me dovresti scrivere un pochino più piccolo xD non ci capisco nulla... comunque il timer devi dire che se lo imposti l'interval a 1 succede ke l'autoclick fa 1 click ogni millesimo di secondo dato che l'interval è impostato a millesimi di secondo (devi spiegarlo per la gente che non lo sa, secondo me) però bella guida complimenti!

 

[killer001]

Bravo, utile la prossima volta il source mettilo fra i tag

Perfavore, Entra oppure Registrati per vedere i codici!

oppure

Perfavore, Entra oppure Registrati per vedere i codici!

così esce ordinato