ciao raga, Per fare un autoclick bisogna mettere :
2 button
una textbox
un timer (proprieta Enabled = False e Interval = 0)
All'inizio del codice mettete:
Codice:
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 Start:
Codice:
Timer1.Interval = Text1.Text
Timer1.Enabled = True
Nel Bottone Stop:
Codice:
Timer1.Enabled = False
Nel Timer:
Codice:
mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
mouse_event MOUSELEFTUP, 0, 0, 0, 0
-------------------------------------------------------COMMENTATE ----------------------------------------------------------------------------------------:chidori: VB6 CMQ GUIDA MIA!
2 button
una textbox
un timer (proprieta Enabled = False e Interval = 0)
All'inizio del codice mettete:
Codice:
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 Start:
Codice:
Timer1.Interval = Text1.Text
Timer1.Enabled = True
Nel Bottone Stop:
Codice:
Timer1.Enabled = False
Nel Timer:
Codice:
mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
mouse_event MOUSELEFTUP, 0, 0, 0, 0
-------------------------------------------------------COMMENTATE ----------------------------------------------------------------------------------------:chidori: VB6 CMQ GUIDA MIA!
Ultima modifica: