Interseptar pulsado de F4

[leandro_ortega]

Hola solo necesito una cosa mas para terminar este programa xd es solo una duda...

y es la siguiente...

Tengo q hacer q al apretar la tecla F4 haga tal cosa... ejemplo

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyValue = Keys.F4 Then
FuncKeysModule(e.KeyValue)
e.Handled = True
End If
End Sub

Public Sub FuncKeysModule(ByVal value As Keys)

Select Case value
Case Keys.F4

"lo que quiero"

End Select
End Sub

este codigo me funciona muy bien, mientras este el form primero, pero si esta minimizado o en este caso q necesito en modo oculto "HIDE" el programa no intersepta cuando pulso f4 -.-

De ante mano muchas gracias

Salu2!

[boluart]

Para eso debes de usar ganchos

Ahorita no tengo un ejemplo a la mano pero voy a buscarlo en mi casa apenas lo consiga te lo paso.
o sino puedes ir aceriguando sobre SetWindowsHookEx es una API que se encarga de hacer esos ganchos.
En tucaso seria hacerle un gancho al teclado

[seba123neo]

Hola,pues no te detecta el F4 porque cuando el form esta oculto,no tiene el foco para detectar la pulsacion,para eso tenes que usar la api GetAsyncKeyState,esta api se maneja con un timer que va comprobando si la tecla fue pulsada,si no te gusta usar timers,podes usar las apis RegisterHotKey ,UnregisterHotKey para crear un hook al sistema y asi interceptar el presionado de esta tecla sin timers...

saludos.

[leandro_ortega]

gracias a los 2 buscare mas info de lo q me dijeron...

PDD: la mayoria de mis programas estan echos con temporisadores xd

Salu2!

[leandro_ortega]

encontre algo:...

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer


SHORT GetAsyncKeyState(
Int(vKey)
);



VK_CONTROL (0x11)
CTRL(key)

ahora... como los junto estos dos comandos...?

Salu2!

[leandro_ortega]

es un dolor de cabeza -.-"

[boluart]

Pues bienvenido a la programacion.

Aqui hay un hilo que te puede ayudar.
http://www.elguille.info/vb/API/deshabilitarAltTab.asp

O si queres ir directo al codigo:

En un Form

Código:

OptionExplicit
PrivateSub cmdCerrar_Click() 
Unload Me
EndSub
PrivateSub cmdHook_Click() 
HookKeyB App.hInstance 
EndSub
PrivateSub cmdUnHook_Click() 
UnHookKeyB 
EndSubPrivateSub Form_QueryUnload(Cancel AsInteger, UnloadMode AsInteger)
UnHookKeyB 
EndSub 

En un Module

Código:

OptionExplicit
Private mHook AsLong
PrivateConst WH_KEYBOARD_LL AsLong = 13& 
PrivateType tagKBDLLHOOKSTRUCT 
vkCode As Long 
scanCode As Long 
flags As Long 
time As Long 
dwExtraInfo As Long 
EndType
 
PrivateConst VK_TAB AsLong = &H9 
PrivateConst VK_CONTROL AsLong = &H11 
PrivateConst VK_ESCAPE AsLong = &H1B 
Const LLKHF_ALTDOWN AsLong = &H20& 
PrivateConst HC_ACTION AsLong = 0& 
PrivateDeclareFunction SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook AsLong, ByVal lpfn AsLong, ByVal hMod AsLong, ByVal dwThreadId AsLong) AsLong
PrivateDeclareFunction UnhookWindowsHookEx Lib "user32" (ByVal hHook AsLong) AsLong
PrivateDeclareFunction CallNextHookEx Lib "user32" (ByVal hHook AsLong, ByVal nCode AsLong, ByVal wParam AsLong, ByVal lParam AsLong) AsLong
PrivateDeclareFunction GetAsyncKeyState Lib "user32" (ByVal vKey AsLong) AsInteger
PrivateDeclareSub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination AsAny, Source AsAny, ByVal Length AsLong) 
PublicFunction LLKeyBoardProc(ByVal nCode AsLong, ByVal wParam AsLong, ByVal lParam AsLong ) AsLong
Dim pkbhs As tagKBDLLHOOKSTRUCT 
Dim ret As Long 
ret = 0 
CopyMemory pkbhs, ByVal lParam, Len(pkbhs) 
If nCode = HC_ACTION Then
If pkbhs.vkCode = VK_ESCAPE Then 
MsgBox "Esc"
End If ' 
EndIf'
ret = CallNextHookEx(mHook, nCode, wParam, lParam) 
LLKeyBoardProc = ret '
EndFunction
PublicSub HookKeyB(ByVal hMod AsLong) 
mHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LLKeyBoardProc, hMod, 0&) 
EndSub
PublicSub UnHookKeyB() 
If mHook <> 0 Then
UnhookWindowsHookEx mHook 
EndIf
EndSub
 

[leandro_ortega]

mmm lo siento pero modificando y tratando de adaptarlo descubri q termina siendo = q el codigo q puse primero... -.-" funciona pero si esta el foco sobre el form...

Salu2!

[Shiryu_Libra]

te serviria este LINK leandro?

[leandro_ortega]

hola muchas gracias pero no... ahora voy a hablar con un amigo vicioso en esta lengua creo q me comento de un keyloguer q habia echo...

si tengo la solucion la posteo por si alguien la necesecita

Salu2!

[leandro_ortega]

al final le termine agregando un boton xd y empese a usar el programa xd

Salu2!

PDD: tal ves mas adelante me de mas entusiasmo y lo termine como se debe xd


Muchas Gracias a los q me ayudaron...