Bloquer le clavier et la souris sous win 95 98 xp avec blockinput

Télécharger le projet
Commenter

Description

Permet de bloquer les évènements du clavier et de la souris d'atteindre une application.
fBlockIt indique s'il faut bloquer ou débloquer les évènements.

Si la fonction réussie elle retourne TRUE. Si les évènements sont déjà bloqués elle retourne FALSE.

Créez un module et une form avec un bouton de commande nommé cmdTest.

-SI JAMAIS, TOUT EST DANS LE ZIP-

Source / Exemple : 


' dans le module
Declare Function BlockInput Lib "user32" ( _
                 ByVal fBlockIt As Long) As Long 

' dans la form

Private Sub cmdTest_Click()
Dim dbDeb As Double
dbDeb = Timer
' Blocage du clavier et de la souris.
BlockInput 1
' Sablier.
Screen.MousePointer = vbHourglass
cmdTest.Caption = "En cours"
' Ici une boucle d'attente bidon (5 sec.), mais on peut
' imaginer une opération sensible ou un calcul quelconque.
Do
    DoEvents
Loop While (dbDeb + 5) > Timer
cmdTest.Caption = "OK"
Screen.MousePointer = vbNormal
' Déblocage du clavier et de la souris.
BlockInput 0
End Sub

Conclusion :


Fonctionne pour Win 95/98 et XP, ne fonctionne pas pour Win NT.

Cette source n'est pas de moi, c'était juste histoire de la partager vu que je l'ai cherchée pendant un moment.

Remarque : malheureusement sous Win Xp en faisant CTRL+ALT+SUPPR, le blocage cesse. Pour les autres OS aucune idée. Si quelqu'un a une idée pour bloquer ces touches sous XP c'est volontiers.

Source : http://docvb.free.fr/

A +

Pablo79
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.