Colabora VB6

Usar HotKeys en VB6

[Código para Visual Basic 6]

 

Fecha: 31/Oct/2006 (24-10-06)
Autor: LNS Evolution - e-mail: [email protected] 

 


Introducción

Una de las formas mas sencillas de registras nuestras teclas rápidas de la manera mas sencilla, es mirando las teclas que se pulsan y ver si es la que deseamos o no. Para ello tendremos que declarar previamente las constantes que usaremos, por ejemplo Const VB_KeyF4 = &H73 (que en ascii es 115)
Este código que aquí voy a exponer nos permite que con la tecla ALT+F4 haga dicha función que nosotros hayamos programado previamente.

 

Explicación del código:

Este código se basa pura y simplemente en el sistema que usan los famosos KeyLogger que como bien sabemos capturan la tecla que se pulsa y la tratan según el programador haya dado la orden ( como puede ser guardarla en una especia de registro o cosas por el estilo )

Código en el módulo:

Option Explicit
'*******************************************************************************'
'**                      MÓDULO PARA USAR NUESTRO HOTKEYS                     **'
'**                                                                           **'
'**                     Realizado por LNS Evolution (2006)                    **'
'**                        email: [email protected]                        **'
'*******************************************************************************'

'Declaraciones API---------------------------------------------------------------
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vbKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32.dll" ( _
	ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwflags As Long, _
	ByVal dwExtraInfo As Byte) As Integer

'Variables y constantes----------------------------------------------------------
Public Const VBKeyALT = &H12
Public Const VBKeyF4 = &H73

Código en el formulario:

Option Explicit

Private Sub Timer1_Timer()
    If GetAsyncKeyState(VBKeyALT) Then
       If GetAsyncKeyState(VBKeyF4) Then
          Msgbox "Ahora As Pulsado Las Teclas Alt+F4"
       End If
    End If
End Sub

 

Observaciones:
El Timer1 tiene que tener un intervalo de 10 para que detecte las teclas sin dejarse ninguna ( cosa que pasaría si pusiéramos un intervalo de 2000 por ejemplo. )


 

Código de ejemplo y relacionados

P.D tengo en mi pagina un documento que hice donde pongo las teclas con sus constantes y al lado su código ascii y el código de ejemplo también esta en mi pagina aquí te dejo los links..
Descargar Ejemplo HotKeys
Descargar Documento HotKeys

 



ir al índice principal del Guille