désactiver touches clavier

Question

salut a tous je veut savoir le code simple en vb.net pour d&#233;sactiver ctrl+alt+supp(j'ai pas troouv&#233; pour win xp) et menu demarrer et alt+tab.c'est tres important pour moi.
et mersi encore
A+

nawakator · Answer

Je ne sais pas si c'est tr&#232;s facile &#224; faire. Presonnelement je n'y suis pas arriver. Dans ma soci&#233;t&#233;e on &#224; trouver un truc qui s'appele KeyTrap c'est un programme externe.Les touches Alt+Ctrl+Supp et la touche windows sont g&#233;re&#233;s par windows puis transmisent &#224; ton application. Il faut donc un programme externe qui les intercepte avant ton application.

Bye,

satoum66 · Answer

il m'envoiy&#233; nawakator et je sais pas comment ca marche
Message :
Declare Sub KeyTrapSet Lib "KeyTrap" (ByVal Texte As String, ByVal flag As Boolean)
Declare Sub WWDllInit Lib "KeyTrap" ()
Declare Sub WWDllFree Lib "KeyTrap" ()

' PAGE
'**************************************************************************
'* Fonction : FSE_Clavier                                 Version :  1.00 *
'* Objet    : Blocage/Deblocage clavier KeyTrap                           *
'*                                                                        *
'* Appel(s) particulier(s) :                                              *
'*    - Aucun                                                             *
'* Param&#232;tre(s) d'entr&#233;e :                                                *
'*    - Aucun                                                             *
'* Param&#232;tre(s) de sortie:                                                *
'*    - Aucun                                                             *
'* Code de retour        :                                                *
'*    - Aucun                                                             *
'**************************************************************************
Sub FSE_Clavier()

Dim Commande         As String   ' Commande
Dim ValeurCommande   As Integer  ' Etat commande

   ' Action clavier
   Select Case GB_Blocage
      
      ' - Blocage
      Case True
         
         ' * Blocage du clavier
         Call WWDllInit
         
         Commande = "TRAP" + Chr(0)
         ValeurCommande = 1
         Call KeyTrapSet(Commande, ValeurCommande)
         
         Commande = "REBOOT" + Chr(0)
         ValeurCommande = 0
         Call KeyTrapSet("REBOOT" + Chr(0), ValeurCommande)
         
         ValeurCommande = 0
         Commande = "TASKSWITCH" + Chr(0)
         Call KeyTrapSet("TASKSWITCH" + Chr(0), ValeurCommande)
         
         ' * Modification icone du bouton
         Menu.BoutonBlocage.Picture = LoadPicture(K_ICONBLOCAGE)
         ' * Bouton 'quitter' invisible
         Menu.Quitter.Visible = False

      ' - D&#233;blocage
      Case False
         
         ' * D&#233;blocage du clavier
         Commande = "TRAP" + Chr(0)
         ValeurCommande = 1
         Call KeyTrapSet(Commande, ValeurCommande)
         
         Commande = "REBOOT" + Chr(0)
         Call KeyTrapSet("REBOOT" + Chr(0), ValeurCommande)
         
         Commande = "TASKSWITCH" + Chr(0)
         Call KeyTrapSet("TASKSWITCH" + Chr(0), ValeurCommande)
         
         Call WWDllFree
         ' * Modification icone du bouton
         Menu.BoutonBlocage.Picture = LoadPicture(K_ICONDEBLOCAGE)
         ' * Bouton 'quitter' visible
         Menu.Quitter.Visible = True

   End Select

End Sub

Désactiver touches clavier

2 réponses

Discussions similaires