Lire une saisie clavier

Bonjour,


J'ai du mal à trouver comment effectuer une action si l'utilisateur appuies sur des touches du clavier.

En gros, je voudrais :

Code:

---

1 2 3

Si pression sur Ctrl Verr.Num Alors Action FinSi

---

Je trouve des codes pour simuler des touches mais pas pour les récupérer.

Des idées ?

bonjour,
la lecture du clavier peut être faite à partir de l'api : http://www.developpez.net/forums/d84...namicwrapperx/
sinon sans doute plus simple avec un activex hotkey qui devrait fonctionner avec vbs (pas testé) :
http://www.nsbasic.com/s309/HotKey/index.html

Bonjour,

Merci.

Je regarde ton code sur le keylogger pour voir comment tu interceptes des pressions clavier.

Je désespérais d'une réponse si bien que j'ai trouvé d'autres solutions mais celle-ci me plaît.

EDIT : A quoi correspondent les &H14 &H10 etc ...?
EDIT2 : J'ai compris. Petit souci, cette ligne ne fonctionne pas oWrap.GetAsyncKeyState
Cette objet ne gère pas cette propriété ou cette méthode.
Jai pourtant installé la dll.

Citation:

---

EDIT2 : J'ai compris. Petit souci, cette ligne ne fonctionne pas oWrap.GetAsyncKeyState

---

comme on trouve oWrap.GetAsyncKeyState presque à chaque ligne ça ne m'avance pas beaucoup...
il est possible que ce code, qui a déjà quelques années, ne soit pas compatible avec seven notamment
au niveau du typage de la valeur renvoyée par GetAsyncKeyState
je vais voir ça

edit : lorsque tu trouves une solution (je suppose que tu es sous seven 64bits) ce serait pas mal d'en faire profiter le forum :mrgreen:

Bonjour,

Je n'ai pas posté sur DVP car je devais testé complètement ce qui semblait fonctionné lors du poste sur cet autre forum.

Je poste donc le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Set oWrap = CreateObject("DynamicWrapperX") Const HaltKey = &H1B 'Esc With oWrap .Register "user32.dll", "SetTimer", "i=llll", "r=l" .Register "user32.dll", "KillTimer", "i=ll", "r=l" .Register "user32.dll", "GetAsyncKeyState", "i=l", "r=n" .Register "user32.dll", "GetKeyState", "i=l", "r=n" .Register "user32.dll", "GetKeyState", "i=l", "r=n" .Register "user32.dll", "GetKeyboardLayout", "i=u", "r=u" End With   bLoop=True While bLoop WScript.Sleep 1000 If (oWrap.GetAsyncKeyState(&H1B)) Then bLoop = False MsgBox("End") End If MsgBox("Tourne") WEnd

---

A noter qu'il faut installer dans C:\Windows\System32 la dll que tu indiques dans un post précédent.

De plus, la fonction qui me posait problème est asynchrone et pour qu'elle fonctionne, il faut un timer :arf::rouleau: