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 |
Partager