Foro de elhacker.net

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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)

Const DA = &H2
Const DU = &H4
Const RA = &H8
Const RU = &H10

Private Sub Form_Load()
Timer1.Interval = 0
Timer2.Interval = 1
Me.Caption = "Auto CLick  V: 1.0  [Detenido]"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error:
If Text2.Text = "CI" Then
ninvertido = DA
invertido = DU
End If
If Text2.Text = "CD" Then
ninvertido = RA
invertido = RU
End If
mouse_event ninvertido Or invertido, 0&, 0&, cButt, dwEI
Exit Sub
error:
MsgBox Err.Description, vbCritical, AutoClick
End
End Sub

Private Sub Timer2_Timer()
On Error GoTo error:
If GetAsyncKeyState(121) = -32767 Then
If Timer1.Enabled = False Then
Timer1.Interval = Text1.Text
Timer1.Enabled = True
Me.Caption = "Auto CLick  V: 1.0  [En progreso]"
Else
Timer1.Interval = Text1.Text
Timer1.Enabled = False
Me.Caption = "Auto CLick  V: 1.0  [Detenido]"
End If
End If
If GetAsyncKeyState(122) = -32767 Then Me.SetFocus
Exit Sub
error:
MsgBox Err.Description, vbCritical, AutoClick
End
End Sub