'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")
Set objVoice = WScript.CreateObject("WinMonitor.Voice")

'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
  
  'ESCAPE - konec
  if KeyCode = 27 then
    Call objVoice.Voice(2, 0, "Nashledanou.")
    wscript.quit
  end if
  'ohlášení'
  Call objVoice.Voice(2, 0, Msg)
  
  i = 0 'reset čítače' 
  call objWM.ClearAnyKeyDownSatus 'reset registru'
end if
wscript.Sleep(100)
Next
 
MsgBox("Skript ukončen.")