Récupération touche

Question

Bien le bonjour! lol
Enfaite, je recherche un code vbs pour quitter une boucle si la personne presse une touche...
petit exemple pourris :

do
msgbox "popopo"
if le gar presse "t" then 
exit do
end if
loop

fohaf · Answer

Tu peux utiliser l'API GetKeyState:


Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

if (GetKeyState(Asc("T"))=-127) then
   exit do

tekila_bandita · Answer

Ok, mais moi, sa me mets que :







ligne 1 charctere 9, erreur de syntaxe...

tekila_bandita · Answer

il me faudrai la source du genre de keylogger en vbs....

c'est une source ou a chaque fois qu'on presse une touche, elle s'enregistre dans un txt....

le prob c'est que je retrouve plut la source.... si quelqu'un peut me dire.....

PCPT · Answer

en vbs, faut me dire, avec un msgbox dans une boucle, quand tu seras assez rapide pour taper ta touche avant que la msgbox suivante n'arrive...
perso, j'en suis pas encore capable en tout cas...

have fun!
PCPT

tekila_bandita · Answer

Nan, mpais c'est pas vraiment pour &#231;a, mais c'est juste un exemple, alors si quelqu'un pourrait m'aider &#224; trouver la source...

merci bien ;)

PCPT · Answer

20 secondes !!!!
une form, un Label1, un Command1



Dim MustLeaveForNext As Boolean 'd&#233;claration g&#233;n&#233;rale
'
'
Private Sub Form_Load()
    MustLeaveForNext = False 'facultatif
    Me.KeyPreview = True
End Sub
'
'
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 70000
    If MustLeaveForNext Then Exit For
    Label1.Caption = i
    DoEvents
Next i
MsgBox "Boucle quitt&#233;e"
End Sub
'
'
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    MustLeaveForNext = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    MustLeaveForNext = True
End Sub



PCPT

Récupération touche

6 réponses

Discussions similaires