Autor Tema: Reconocer Cuando Se Presionen Teclas (Leído 1976 veces)

ElNapster · « **en:** Sábado 19 de Mayo de 2007, 00:01 »

Como puedo hacer yo para que mi aplicacion sepa cuando yo presione la combinacion de teclas por darles un ejemplo CTRL + ALT + L ? pero por decirles algo mi aplicacion va a estar en la barra que aparece a la par del reloj ...

Gracias por la ascesoria.....

RadicalEd

Guiate con el api GetKeyState.

Código: Text

'Ejemplo del Api-Guide
'In a module
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib &#34;user32&#34; (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib &#34;user32&#34; (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib &#34;user32&#34; Alias &#34;SetWindowsHookExA&#34; (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib &#34;user32&#34; (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'if idHook is less than zero, no further processing is required
    If idHook &#60; 0 Then
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    Else
        'check if SHIFT-S is pressed
        If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc(&#34;S&#34;) Then
            'show the result
            Form1.Print &#34;Shift-S pressed ...&#34;
        End If
        'call the next hook
        KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
    End If
End Function
 
'In a form, called Form1
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'set a keyboard hook
    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'remove the windows-hook
    UnhookWindowsHookEx hHook
End Sub
 
 

ElNapster

Thank's ....... me da un errorsito aca

Hook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)

Que podra ser ?

RadicalEd

El primer código va en un módulo y el segundo en un Formulario:

Código: Text

'In a form, called Form1
Private Sub Form_Load()
   'KPD-Team 2000
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Allapi.net
   'set a keyboard hook
   hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
   'remove the windows-hook
   UnhookWindowsHookEx hHook
End Sub
 

ElNapster

Si asi lo puse pero me da error en ese parametro ?

AnioN

que error te tira especificamente?

ElNapster · « **Respuesta #6 en:** Lunes 21 de Mayo de 2007, 17:22 »

Código: Text

Compile error
Invalid use of AddressOf Operator 
 

Gracias por la ayuda

ElNapster · « **Respuesta #7 en:** Martes 22 de Mayo de 2007, 17:45 »

Oye RadicalEd..... a ti se te funciona el codigo que me enviaste ?

poque ya he intentado modificarlo y hacerle unas cositas pero no me da ....

....

Gracias

ElNapster · « **Respuesta #8 en:** Martes 22 de Mayo de 2007, 18:07 »

LISTO !!!!!!

, asunto resuelto ... Gracias brother

RadicalEd · « **Respuesta #9 en:** Martes 22 de Mayo de 2007, 19:17 »

Cita de: "ElNapster"

Oye RadicalEd..... a ti se te funciona el codigo que me enviaste ? poque ya he intentado modificarlo y hacerle unas cositas pero no me da .... ....

Gracias

Sip a mi si me funciona.

SoloCodigo

Autor Tema: Reconocer Cuando Se Presionen Teclas (Leído 1976 veces)

ElNapster

Reconocer Cuando Se Presionen Teclas

RadicalEd

Re: Reconocer Cuando Se Presionen Teclas

ElNapster

Re: Reconocer Cuando Se Presionen Teclas

RadicalEd

Re: Reconocer Cuando Se Presionen Teclas

ElNapster

Re: Reconocer Cuando Se Presionen Teclas

AnioN

Re: Reconocer Cuando Se Presionen Teclas

ElNapster

Re: Reconocer Cuando Se Presionen Teclas

ElNapster

Re: Reconocer Cuando Se Presionen Teclas

ElNapster

Re: Reconocer Cuando Se Presionen Teclas

RadicalEd

Re: Reconocer Cuando Se Presionen Teclas