Bloquer le clavier et la souris en VB6

Bonjour a tous
peux quelqu'un courige ce code sourse:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Function BlockInpute Lib "user32" (ByVal fBlock As Long) As Long   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)   Private Sub Form_Load() DoEvents BlockInput True Sleep 2000 BlocInput False End Sub

---

Ce code source devrai permettre l'arrêt de la souris et du clavier en 2seconde 2000=2seconds....mais j'ai pas trouvez ou est le problème de ce code
Svp peux quelqu'un m'aider et merci

Bonjour,

je te suggère d'apporter du soin à ce que tu coipies...
BlockInput ne prend pas de e ici :

Code:

---

Private Declare Function BlockInpute Lib "user32" (ByVal fBlock As Long) As Long

---

et il lui manque un k là :
BlockInput False

au lieu de te précipiter pour "poster" un "problème" !

Citation:

---

Envoyé par ucfoutu

Bonjour,

je te suggère d'apporter du soin à ce que tu coipies...
BlockInput ne prend pas de e ici :

Code:

---

Private Declare Function BlockInpute Lib "user32" (ByVal fBlock As Long) As Long

---

et il lui manque un k là :
BlockInput False

au lieu de te précipiter pour "poster" un "problème" !

---

Merci mon frere,et moi avec ce projet je te jure que je ne fasse aucun mal a person. :ccool:

Bonjour,

mais à quoi te sert donc de bloquer souris et clavier pendant 2 secondes ?

C'est surement il veut faire un tour a ces ami(e)s , :lol::lol:

Mais pour le blocage , tu peux jouer avec les codes ASCII des touches.

;);)