Hook / Remplacement de touche

Question

Bonjour, J'intercepte le flux clavier avec un Hook et je bloque la touche "." du pavé numérique. Mon problème c'est que j'aimerai remplacer cette touche par un "," ... mais lorsque je fait un sendkey ou keybd_event, mon hook intercepte le "," et me le recrache aprés celui que j'envoi "à la main" => Résultat je me retrouve avec ",," J'ai tout essayé mais j'y arrive tout simplement paaaaaaaaaassssss => **************************************************************** Public Function IsHooked(ByRef Hookstruct As KBDLLHOOKSTRUCT) As Integer If (Hookstruct.vkCode = VK_DECIMAL) Then Return Hookstruct.vkCode End If Return 0 End Function **************************************************************** Public Function KeyboardCallback(ByVal Code As Integer, _ ByVal wParam As Integer, _ ByRef lParam As KBDLLHOOKSTRUCT) As Integer If (Code = HC_ACTION) Then If IsHooked(lParam) <> 0 Then Return 1 End If End If Return CallNextHookEx(KeyboardHandle, Code, wParam, lParam) End Function **************************************************************** Public Delegate Function KeyboardHookDelegate( _ ByVal Code As Integer, _ ByVal wParam As Integer, _ ByRef lParam As KBDLLHOOKSTRUCT) As Integer **************************************************************** Private callback As KeyboardHookDelegate **************************************************************** 'Je lance donc la fonction qui suis => Public Sub HookKeyboard() callback = New KeyboardHookDelegate(AddressOf KeyboardCallback) KeyboardHandle = SetWindowsHookEx( _ WH_KEYBOARD_LL, callback, _ Marshal.GetHINSTANCE( _ [Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub **************************************************************** Quelqu'un aurai t'il une idée du "comment faire" ? Merci!

ShareVB · Answer

salut,



je pense que tu remplaces simplement le code "." par "," dans vkCode et tu le passes &#224; CallNextHookEx...

ShareVB

titoupit · Answer

D&#233;ja tent&#233;, mais ca marche pas

ShareVB · Answer

salut,



il faut aussi renvoyer 0 depuis la callback...

ShareVB

titoupit · Answer

Bon j'ai pas mal gal&#233;r&#233;, mais j'ai finalement trouv&#233; &#231;a (c'est pas tr&#233;s propre, mais au moins &#231;a marche ^^):


Public Function KeyboardCallback(ByVal Code As Integer
, _


ByVal wParam As Integer
, ByRef lParam As KBDLLHOOKSTRUCT) As Integer


If (Code = HC_ACTION) Then


'Remplacement de touche "." par ","


If lParam.vkCode VK_DECIMAL And LastReplaced_DECIMAL "" Then


LastReplaced_DECIMAL = ","


Return
 1


End If


If lParam.vkCode VK_DECIMAL And LastReplaced_DECIMAL "," Then


System.Windows.Forms.SendKeys.Send(",")


LastReplaced_DECIMAL = ""


Return
 1


End If





Return
 CallNextHookEx(KeyboardHandle, Code, wParam, lParam)


End Function

ShareVB · Answer

salut,



et en rempla&#231;ant le vkCode et en renvoyant RETURN 0...ca ne marche pas ?

ShareVB

titoupit · Answer

Non, il me renvoie la touche initiale (comme si je ne changeais rien en fait!).

Attention, dans le code que j'ai pass&#233; il faut faire gaffe &#224; l'&#233;tat du caps lock (sinon on a un joli "?" qui sort  qd on est en MAJ)

Hook / Remplacement de touche

6 réponses

Discussions similaires