Send Keys
'==========================================================================
' NAME: SendKeys01.vbs
' AUTHOR: Neal Walters
' DATE : 2/27/2005
' http://VBScript-Training.com
' COMMENT:
'
'==========================================================================
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "111{+}"
WScript.Sleep 500
WshShell.SendKeys "222"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500
WshShell.SendKeys "*333"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500
WScript.Echo "All Done"
|