[VB6] Realizzare un KEYSENDER

TheTrigger — Tue, 16 Jun 2009 18:27:52 +0000

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!

Post from: BestKill ☠

BestKill ☠ » rilascio

[VB6] Realizzare un KEYSENDER