Este programa demuestra cómo se puede conectar o desconectar el teclado numérico (NUM LOCK)

Pasos a seguir:

1. Crea un nuevo proyecto en visual basic

2. Añade el siguiente código a General Declarations del formulario Form1

Private Declare Sub GetKeyboardStateByString Lib "user32" Alias "GetKeyboardState" (ByVal pbKeyState As String)

Private Declare Sub SetKeyboardStateByString Lib "user32" Alias "SetKeyboardState" (ByVal lppbKeyState As String)

Const VK_NUMLOCK = &H90

3. Añade un control Command Button al Form1. Command1 será por defecto.

en propiedades caption escribe "Conectar".

4. Añade el siguiente codigo al evento Click de Command1:

Private Sub Command1_Click()

Dim NumLockKey As String * 256

NumLockKey = Space$(256)

GetKeyboardStateByString (NumLockKey)

Mid$(NumLockKey, VK_NUMLOCK + 1, 1) = Chr$(1)

Call SetKeyboardStateByString(NumLockKey)

End Sub

5. Añade un segundo control Command Button al formulario por defecto será Command2

en propiedades caption escribe "Desconectar".

6. Añade el siguiente codigo al evento click de Command2:

Private Sub Command2_Click()

Dim NumLockKey As String * 256

NumLockKey = Space$(256)

GetKeyboardStateByString (NumLockKey)

Mid$(NumLockKey, VK_NUMLOCK + 1, 1) = Chr$(0)

Call SetKeyboardStateByString(NumLockKey)

End Sub

Ejecuta el programa pulsando F5.