Discussion :

[imparator_42]

BOnjour,
je voudrais bien bloquer la souris et le clavier pas que sur Form VB mais partout.

Pour le blocage des touches...
Dans le Form c'est bien facile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 246 Or KeyAscii = 214 Then.
KeyAscii = 0
End if

Mais faire ça partout sur windows...

[ucfoutu]

Bonjour,

Partout ?
Ok :
Celà ce fait par utilisation de la fonction BlockInput de la librairie user32 de l'Api de Windows.
Mais... tu as pensé à l'embarras que cela va générer ?
A tes risques et périls, donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
 
 
Private Sub Command1_Click()
  DoEvents
  BlockInput True
End Sub

Sauvagarde tout ce qui est en cours avant d'essayer la chose, hein....

[imparator_42]

Ton conseil me désespère un peu ...
euh...
mais on peut le faire avec un Timer non ?
genre bloquer pendant un certain temps et puis débloquer ?
et ce code bloque le clavier et la souris ?

on peut pas faire en sorte que une seule ou quelques touches fonctionnent encore?
Genre ESC et capter cette touche pour demander "Vous voulez arrêtez ?" et débloquer la souris & clavier en fonction de la réponse de l'utilisateur ....

ça a l'air absurde mais faisable

[ucfoutu]

Ah...

Tu avais bien dit tout bloquer et partout, n'est-ce-pas ?
Alors ...
Maintenant, si ce n'est que pour un certain temps ===>>> la fonction Sleep
ou un Timer pour restituer, pardi ...
La "restitution" se fait avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 BlockInput False

Mais si tu nous disais plutôt quel est le but de cette étrange manoeuvre ?

[imparator_42]

En théorie je suis entrain de me créer un truc qui fonctionne tout seul, et je voulais évité que la souris & le clavier fonctionnent ... car le programme prends aussi le contrôle de la souris ...

Mais je veux pas que l'ordinateur dorme

[imparator_42]

Mais sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoEvents
  BlockInput True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoEvents
  BlockInput False

Me conviennent bien, c'est ce que je veux mais sauf que je voudrais bien que 1 ou quelques touches reste tout de même fonctionnelles, mais sinon ce n'est pas très grave, c'est assez bien comme ça .

Merci beaucoup UCFoutu