Ecco come inviare/simulare tasti dal programma con visual basic 6

1
2
3
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_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &;H2


Elenco dei nomi delle funzioni per i tasti:

'Costante         Tasto          Valore
vbKeyCancel    Tasto ANNULLA         3
vbKeyTab       Tasto TAB             9
vbKeyReturn    Tasto INVIO          13
vbKeyShift     Tasto MAIUSC         16
vbKeyControl   Tasto CTRL           17
vbKeyMenu      Tasto MENU           18
vbKeyCapital   Tasto BLOC MAIUSC    20
vbKeyEscape    Tasto ESC            27
vbKeySpace     BARRA SPAZIATRICE    32

Questo è un esempio su come scrivere la parola: Ciao

1
2
3
4
5
6
7
8
9
10
11
keybd_event vbKeyC, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyC, 0, KEYEVENTF_KEYUP, 0

keybd_event vbKeyI, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyI, 0, KEYEVENTF_KEYUP, 0

keybd_event vbKeyA, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0

keybd_event vbKeyO, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyO, 0, KEYEVENTF_KEYUP, 0

EYEVENTF_EXTENDEDKEY = Simulazione PRESSIONE del tasto
KEYEVENTF_KEYUP = Simulazione RILASCIO del tasto

Esiste anche una fuonzione già impostata, keysenders.
Esempio:

1
keysenders("stringa");

Verrà inviata la stringa, carattere per carattere!
Attenzione: è probabile che vb6 faccia degli errori, a volte si verifica l’errata successione dei caratteri!

Tags: , , , , , ,
Prissimo articolo Giocare con FireFox
Articolo precedente Categoria misteri e pensieri spostata