Hola, quiero que en un programa cuando haga click, se aprete, por ejemplo la tecla 1 del numpad, pero no puedo lograrlo ya que cuando lo pruebo al hacer click no pasa nada.
El programa nomas lleva un timer
el codigo es este:
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
'Declaración del Api keybd_event para la presión de tecla
Private Declare Function GetAsyncKeyState _
Lib "user32" ( _
ByVal vKey As Long) As Integer
Private Const LEFT_DOWN = &H2
Private Const LEFT_UP = &H4
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Sub Pulsar_Tecla(Tecla As Long)
Call keybd_event(Tecla, 0, 0, 0)
Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 255
If GetAsyncKeyState(1) = -32767 Then Call Pulsar_Tecla(vbKeyNumpad1)
Next
End Sub
End Sub
Y cuando en vez de click, le pongo cualquier otra key, por ejemplo la A (65) el programa funciona bien, el problema es el click izquierdo.
Gracias
Mostrar Mensajes
