'Copyright (c) ACE design 
'příklad automatizace ovládání programů
'texty dialogů odpovídají systému Windows Vista
Set objAO = WScript.CreateObject("WinMonitor.cActiveObject")
Set objWSH = WScript.CreateObject("WSH.GUI")
Set WSHShell = WScript.CreateObject("WScript.Shell")

'spuštění programu poznámkový blok'
CmdLine="c:\windows\notepad.exe"
call WSHShell.Run (CmdLine)

'čekání na okno Poznámkový blok 
For i = 0 to 50
sTitle = objAO.gWinTitle
if Instr(sTitle,"Poznámkový blok") then
   NextStep = 1
   exit for
end if
wscript.Sleep(100)
Next

if NextStep = 0 then 
  MsgBox("Nelze spustit.")
  Wscript.Quit
End If  
NextStep = 0

'zápis do textového pole v okně
call objWSH.KeyPress(65,1) 'A'
call objWSH.KeyPress(66,0) 'b'
call objWSH.KeyPress(67,0) 'c'


'zaslání kombinace ALT+F4 pro ukončení
call objWSH.KeyPress(115,4)

'čekání na dialog s dotazem o uložení souboru'
For i = 0 to 50
sTitle = objAO.gName
if Instr(sTitle,"Uložit") then
   NextStep = 1
   exit for
end if
wscript.Sleep(100)
Next

if NextStep = 0 then 
  MsgBox("Notepad exit failed.")
  Wscript.Quit
End If  

NextStep = 0

'Volba Ano, tedy uložit soubor'
'možno zaslat klávesu ENTER
'call objWSH.KeyPress(13,0)
'nebo hledat v okně tlačítko a kliknout na ně
call objWSH.ClickOnWindow("Poznámkový blok","&Uložit")


'čekání na dialog Uložit jako
For i = 0 to 50
sTitle = objAO.gWinTitle
if Instr(sTitle,"Uložit jako") then
   NextStep = 1
   exit for
end if
wscript.Sleep(100)
Next

if NextStep = 0 then 
  MsgBox("SaveAs failed.")
  Wscript.Quit
End If 

NextStep = 0

'Dialog je zobrazen a fokus je na poli jméno souboru, zápis jména
call objWSH.KeyPress(65,1) 'A'
call objWSH.KeyPress(66,0) 'b'
call objWSH.KeyPress(67,0) 'c'
call objWSH.KeyPress(190,0) '.'
call objWSH.KeyPress(84,0) 't'
call objWSH.KeyPress(88,0) 'x'
call objWSH.KeyPress(84,0) 't'

'Ukončení dialogu ENTEREM nebo kliknuitím na tlačítko Uložit
'call objWSH.KeyPress(13,0)
call objWSH.ClickOnWindow(objAO.gWinTitle,"&Uložit")

NextStep = 0

'ještě se může objevit dialog, pokud soubor již existuje, klikneme na Ano
For i = 0 to 50
sTitle = objAO.gName
if Instr(sTitle,"Ne") then
   call objWSH.ClickOnWindow(objAO.gWinTitle,"&Ano")
   exit for
end if

'pokud se již aplikace uzavřela, není důvod vyčkávat
sTitle = objAO.gWinTitle
if Instr(sTitle,"lož")=0 and Instr(sTitle,"Poznámkový")=0 then exit for

wscript.Sleep(100)
Next

msgbox("Hotovo.")