记事本上保存内容（用WScript.Shell实现）

rivermen

兴建一个记事本，记录输入“HAPPY” 然后保存

SystemUtil.Run "C:\WINDOWS\system32\notepad.exe","","C:\Documents and Settings\jie.wu","open"
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "无标题 - 记事本"

wait 2
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "H"
wait 1
WshShell.SendKeys "a"
wait 1
WshShell.SendKeys "p"
wait 1
WshShell.SendKeys "p"
wait 1
WshShell.SendKeys "y"
wait 5

WshShell.SendKeys "%FS"


模拟键盘操作“ALT+F”,在菜单里选择S （保存）

不知道怎么样能购摸拟出CTRL+S 的快捷方式。
尝试过：
WshShell.SendKeys "(^S)"
WshShell.SendKeys "^(S)"
都没有奏效

[ 本帖最后由 rivermen 于 2007-6-8 16:38 编辑 ]

rivermen

找到原因了：
WshShell.SendKeys "(^s)"
就可以了。
还区分大小写。CTRL+s,  小s竟然就能通过


一起交流

yuandjing

高手，向你学习。。。

gotolife

sdlkfj4 为什么不用标准输出函数来直接写入文件？

这样实现的话，如果希望把测试报告输入到文本文件中，你该怎么做？

另外，如果只是输入Happy的话，这样就可以了
WshShell.SendKeys "Happy~"


该实现方式实用性太低了……

rivermen

只是试验性质！

gotolife

sdlkfj8