'Copyright (c) ACE design 

Set objAO = WScript.CreateObject("WinMonitor.cActiveObject")
Set objWM = WScript.CreateObject("WinMonitor.Application")
Set objWSH = WScript.CreateObject("WSH.GUI")
Set WSHShell = WScript.CreateObject("WScript.Shell")
'reset registru kláves'
call objWM.ClearAnyKeyDownSatus

'čekání na stisk klávesy
For i = 0 to 50

KeyCode=objWM.AnyKeyDownSatus 
call objWM.ClearAnyKeyDownSatus
'klávesa stisknuta'
if KeyCode <> 0 then
  ShiftCode=objWM.AnyShiftStatus 
  Msg =  "Klávesa: " & KeyCode & " Shift: " & ShiftCode
  if MsgBox(Msg,vbOKCancel + vbInformation,"Test")=2 then
     wscript.quit
  end if
  i = 0 'reset čítače' 
  call objWM.ClearAnyKeyDownSatus 'reset registru'
end if
wscript.Sleep(100)
Next
 
MsgBox("Skript ukončen.")