Título: Una duda, pienso que simple.
Publicado por: Zitox en 18 Marzo 2015, 01:08 am
Tengo este code: 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!
Título: Re: Una duda, pienso que simple.
Publicado por: okik en 18 Marzo 2015, 18:17 pm
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
Título: Re: Una duda, pienso que simple.
Publicado por: Zitox en 18 Marzo 2015, 21:17 pm
Gracias capo me sirvio!
|