dim wsh
set wsh=createobject("wscript.shell")
wsh.run "notepad.exe"
wsh.run "calc.exe"
wsh.appactivate "notepad.exe"
wsh.sendkeys"4"

wsh.sendkeys"3"
wsh.sendkeys"2"
wsh.sendkeys"1"