EN clave de reventado CTRL, MAYÚS, BLOQ MAYÚS, BLOQ NUM combinaciones

Declinación de responsabilidades del contenido retirado de KB

Este artículo trataba sobre los productos para los cuales Microsoft ya no ofrece soporte técnico. Por lo tanto, este artículo se ofrece "tal cual" y ya no se actualizará más.

Resumen

Al presionar cualquier tecla en combinación con CTRL, ALT, MAYÚS, BLOQ MAYÚS o BLOQ NUM cambia el código de exploración de teclado. Para interceptar combinaciones de teclas, la instrucción KEY requiere sumar los valores de los indicadores de teclado como se muestra en el ejemplo de código siguiente.

Más información

El siguiente es un ejemplo de código:
  CONST alt = &H8   CONST noflag = &H0
CONST leftshift = &H1
CONST rightshift = &H2
CONST ctrl = &H4
CONST numlock = &H20
CONST capslock = &H40
CONST extendedkeyboard = &H80
CONST left = &H4B
CONST right = &H4D
CONST up = &H48
CONST down = &H50
CONST C = &H2E
CONST scrolllock = &H46

KEY 15, CHR$(extendedkeyboard + numlock) + CHR$(left)
KEY 16, CHR$(extendedkeyboard + numlock) + CHR$(right)
KEY 17, CHR$(extendedkeyboard + numlock) + CHR$(up)
KEY 18, CHR$(extendedkeyboard + numlock) + CHR$(down)
KEY 19, CHR$(ctrl + capslock) + CHR$(C)
KEY 20, CHR$(extendedkeyboard + ctrl + numlock) + CHR$(scrolllock)

ON KEY(15) GOSUB left
ON KEY(16) GOSUB right
ON KEY(17) GOSUB up
ON KEY(18) GOSUB down
ON KEY(19) GOSUB break
ON KEY(20) GOSUB break

KEY(15) ON
KEY(16) ON
KEY(17) ON
KEY(18) ON
KEY(19) ON
KEY(20) ON

WHILE UCASE$(INKEY$) <> UCASE$("q")
WEND
END

left:
PRINT "left"
RETURN

right:
PRINT "right"
RETURN

up:
PRINT "up"
RETURN

down:
PRINT "down"
RETURN

break:
PRINT "break"
RETURN

Propiedades

Id. de artículo: 39252 - Última revisión: 17/01/2017 - Revisión: 1

Comentarios