利用sendkeys实现对记事本的操作

    下面一段代码是利用sendkeys方法实现对记事本输入一段文字，然后保存并关闭的功能。

Dim WsObj
Dim path
path="C:\WINDOWS\system32\notepad.exe"   '将要运行的软件的路径

Set WsObj=CreateObject("wscript.shell")  '创建一个shell对象
WsObj.Run path                           '运行软件

WsObj.AppActivate "无标题 - 记事本"      '将记事本激活
WScript.Sleep 2000                      
WsObj.SendKeys"Hello everyone"           '利用sendkeys方法代替键盘输入字符
WsObj.SendKeys "^s"                      '按下Ctrl+S键

WsObj.SendKeys "D:\quttyTest.txt"        '将文本保存为 quttyTest.txt
WsObj.SendKeys "{ENTER}"                 ' 按下Enter键确认保存
WsObj.SendKeys "%{F4}"                   '按下ALT+F4键将记事本关闭
Set WsObj=nothing