Una duda, pienso que simple.

[Zitox]

Tengo este code:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
        Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2
 
 
Private Sub Timer1_Timer()
    Dim i As Integer
     
    For i = 1 To 1
        If GetAsyncKeyState(i) = -32767 Then
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 10, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 10, 0, 0
        End If
    Next
End Sub
 
Private Sub Form_Load()
    ' intervalo para el timer
    Timer1.Interval = 50
End Sub

Y como lo leen, sabran que lo que hace es mover el cursor a la posicion 0,20 x,y al tocar click isquierdo. Pero quiero es que si yo mantenco el click siga la accion varias veces, por que tengo que tocar 1 por 1 para que haga la acción.

Saludos y gracias!

[okik]

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim N  As Integer
Private Sub Timer1_Timer()
Dim i As Integer
If GetAsyncKeyState (vbKeyLButton) < 0 Then
  N = N + 1
Else
  N = 0
End If
Label1.Caption = N
End Sub
 
Private Sub Form_Load()
   ' intervalo para el timer
   Timer1.Interval = 50
End Sub

[Zitox]

Gracias capo me sirvio!