Cita:
Iniciado por boluart 
Esta es la form en que yo envio pulsaciones y en cuanto a GetKeyState si lo detecta no se si es la misma manera en la que estas enviando las pulsaciones
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
Private Sub Command1_Click()
Call keybd_event(38, 0, 0, 0)
Call keybd_event(38, 0, KEYEVENTF_KEYUP, 0)
'Call keybd_event(VK_LWIN, 0, 0, 0)
'Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Funciona perfectamente...
Ahora te hago un par de preguntas:
Si utilizo
Call keybd_event(38, 0, KEYEVENTF_KEYUP, 0)
o directamente
Call keybd_event(38, 0, 0, 0)
El getkeystate lo detecta correctamente.
Pero sigue pulsado... Es decir no deja de pulsar.
Como puedo hacer para que deje de pulsar?