il m'envoiyé 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ètre(s) d'entrée : *
'* - Aucun *
'* Paramè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éblocage
Case False
' * Dé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
