测试环境WIndows XP 专业版

将以下代码保存为一个vbs文件
比如保存为c:\下的文件sendkey.vbs

在命令窗口下输入:

CScript c:\sendkey.vbs

或

WScript c:\sendkey.vbs

'=====代码开始===========================

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100
WshShell.SendKeys "1{+}"
WScript.Sleep 500
WshShell.SendKeys "2"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 500

'模拟按下ALT+F4组合键，关闭计算器窗口
WshShell.SendKeys "%{F4}"

'终端calc程序的运行
'WScript.Terminate()

WshShell.SendKeys "*3"
WScript.Sleep 500
WshShell.SendKeys "~"
WScript.Sleep 2500

'=====代码结束===========================