activar y desactivar el teclado numerico(visual basic)

Tema en 'Foro Libre' iniciado por SoulOfHell, 17 Nov 2008.

  1. Sou

    SoulOfHell
    Expand Collapse
    Sargento

    Mensajes:
    303
    Me Gusta recibidos:
    0
    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.

    [​IMG]
     
  2. Jrp

    Jrpa1K
    Expand Collapse
    Recluta

    Mensajes:
    40
    Me Gusta recibidos:
    0
    jajajaja xD!!!!!!!!! si esto lo pones en Private Sub Form1_Load()

    y lo compilas seria una broma xD!! pero tendrias que disfrazar el formulario con algunos botones, se puede hacer pasar por algun hack y cuando se abre el formulario no puedes tipear nada ya que el codigo lo pusiste en Private Sub Form1_Load() osea eso significa que cuando se carge el formulario(solo basta que abran el formulario) y listo no pueden escribir, tambien seria chevere que lo hagan desactivando los clicks cosa que no le queda mas opcion que reiniciar la PC xD!!!!!!!!!!!!
     
  3. Sou

    SoulOfHell
    Expand Collapse
    Sargento

    Mensajes:
    303
    Me Gusta recibidos:
    0
    se lo hise a un primo por jodedera y los resultados fueron muy buenos xDDDDDD:arriba:
     

Compartir esta página