'*************************************************************************
' SendKeys can send "special key" using the following code :
' BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
' BREAK {BREAK}
' CAPS LOCK {CAPSLOCK}
' DEL or DELETE {DELETE} or {DEL}
' DOWN ARROW {DOWN}
' END {END}
' ENTER {ENTER} or ~
' ESC {ESC}
' HELP {HELP}
' HOME {HOME}
' INS or INSERT {INSERT} or {INS}
' LEFT ARROW {LEFT}
' NUM LOCK {NUMLOCK}
' PAGE DOWN {PGDN}
' PAGE UP {PGUP}
' PRINT SCREEN {PRTSC}
' RIGHT ARROW {RIGHT}
' SCROLL LOCK {SCROLLLOCK}
' TAB {TAB}
' UP ARROW {UP}
' F1 {F1}
' F2 {F2}
' F3 {F3}
' F4 {F4}
' F5 {F5}
' F6 {F6}
' F7 {F7}
' F8 {F8}
' F9 {F9}
' F10 {F10}
' F11 {F11}
' F12 {F12}
' F13 {F13}
' F14 {F14}
' F15 {F15}
' F16 {F16}
' SHIFT +
' CTRL ^
' ALT %
'*************************************************************************
' SendKeys sends to the active window.  You could just as easily use
' this script to send keys to SecureNetTerm or any other windows
' program.
'
 
Sub Main()
Set wsh = CreateObject("WScript.Shell")
Set sink = CreateObject("EventMapper.SecureNetTerm")
wsh.Run("calc")
sink.Sleep (100)
wsh.AppActivate("Calculator")
sink.Sleep (100)
wsh.SendKeys( "1{+}")
sink.Sleep (500)
wsh.SendKeys ("2")
sink.Sleep (500)
wsh.SendKeys( "=")
sink.Sleep (500)
wsh.SendKeys( "*4" )
sink.Sleep (500)
wsh.SendKeys( "=" )
' 1+2 = 3  * 4 = 12
End Sub