Teclado simulado VB (no escriba si no es coherente)

Declaración privada Sub keybd_event Lib "user32" (ByVal bVk como byte, ByVal Scan como byte, ByVal dwFlags mientras, ByVal dwExtraInfo mientras)

Const KEYEVENTF_KEYUP = &H2 ' Liberar constante de clave

'Ejemplo de clave de ingreso

Private Sub Command1_Click()

Text1.SetFocus

Llamar a keybd_event( 13.0.0.0) 'Presione

Text1.SetFocus

Text2.SetFocus

Text3.SetFocus

Text4.SetFocusSetFocus

Llamar keybd_event( 13, 0, 0, 0) 'Presiona

Llamar a keybd_event(13, 0, KEYEVENTF_KEYUP, botón derecho del mouse

vbKeyCancel 3 Tecla CANCELAR

vbKeyMButton 4 botón central del ratón

vbKeyBack 8 tecla RETROCESO

vbKeyTab 9 tecla TAB