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

Soyez le premier à donner votre avis sur cette source.

Vue 9 006 fois - Téléchargée 890 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

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

Bonne source, merci bien.
Messages postés
51
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
29 septembre 2010
1
JE voudrait bloquer seulement le clavier et pas la souris, qu'est ce qu'il faut changer.

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

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)
Messages postés
64
Date d'inscription
dimanche 17 août 2003
Statut
Membre
Dernière intervention
23 juillet 2006

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

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.