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

5/5 (10 avis)

Vue 9 468 fois - Téléchargée 903 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Jielde
Messages postés
226
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
1 décembre 2010

8 mai 2006 à 18:53
Bonne source, merci bien.
jjmaster
Messages postés
51
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
29 septembre 2010
1
30 juin 2004 à 16:02
JE voudrait bloquer seulement le clavier et pas la souris, qu'est ce qu'il faut changer.

Merci !! :)
cs_yannickt
Messages postés
64
Date d'inscription
lundi 25 août 2003
Statut
Membre
Dernière intervention
22 novembre 2011

25 juin 2004 à 00:00
haaa! Merci, c'est exactement ce que je recherchais! 10! Bonne Continuité, pour ce qui est du ctrl-alt-del, c'est pas grave, puisque on peux être mal pris n'importe quand, c'est un bon moyen de secours, et ce n'est pas tlm qui connaissent cette combinaison! (mon p'tit frère, entre-autre)
novicekiller
Messages postés
64
Date d'inscription
dimanche 17 août 2003
Statut
Membre
Dernière intervention
23 juillet 2006

26 mai 2004 à 19:18
euh supprimé la clé pas la variable dsl !!!
novicekiller
Messages postés
64
Date d'inscription
dimanche 17 août 2003
Statut
Membre
Dernière intervention
23 juillet 2006

26 mai 2004 à 19:16
moi pour désactiver Ctrl+Alt+Suppr sous winXP je créé tout simplement une clé dan la base de registre en REG_SZ ! :
Call savestring(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 1)
avec dan le module ski fo pour créé sinon en plus simple si on besoin de faire qu'une seule clé on fait comme ca dan la form :
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1
pour annulé soi vou remplacé la valeur par -1 ou alor vous supprimé la variable !
Afficher les 10 commentaires

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.