Problemi con keybd_event

[ramboss...@hotmail.com]

Ciao, il mio problema e' la sequenza di tasti.
Devo simulare uno "SHIFT a" o "HOME SHIFT END" ed inserendo il down e
l'up del tasto corrispondente non mi fa l'up dei tasti CTRL, SHIFT e
ALT. Ovvero finche' non li premo fisicamente sulla tastiera mi
rimangono attivi. Uso questa istruzione perche' ho bisogno di inviare
anche lo ScanCode della tastiera.

Fatemi sapere, non so come risolvere il problema.

Michele

[Hal1961]

<ramboss...@hotmail.com> wrote in message
news:3a0a5f30...@news.inwind.it...

Un esempio del codice che hai usato sarebbe stato utile, percio' tiro a
indovinare.

Ho aperto un modulo di vb ed ho scritto:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
Option Explicit

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_SHIFT = &H10

Public Sub Prova()

keybd_event VK_SHIFT, 0, 0, 0
keybd_event vbKeyA, 0, 0, 0
keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0

End Sub

'''''''''''''''''''''''''''

Quindi ho aperto la finestra Immediate, ho scritto
prova
e ho dato invio.
Nella finestra immediate e comparsa la A maiuscola, come desiderato.

Spero possa essere utile.

Ciao
Aldo