51Testing软件测试论坛

标题: 记事本上保存内容（用WScript.Shell实现） [打印本页]

作者: rivermen 时间: 2007-6-8 16:30
标题: 记事本上保存内容（用WScript.Shell实现）
兴建一个记事本，记录输入“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 时间: 2007-6-8 16:45
找到原因了：
WshShell.SendKeys "(^s)"
就可以了。
还区分大小写。CTRL+s, 小s竟然就能通过

一起交流

作者: yuandjing 时间: 2007-6-8 19:26
高手，向你学习。。。

作者: gotolife 时间: 2007-6-10 16:45
sdlkfj4 为什么不用标准输出函数来直接写入文件？

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

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

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

作者: rivermen 时间: 2007-6-11 09:14
标题: 回复 #4 gotolife 的帖子
只是试验性质！

作者: gotolife 时间: 2007-6-12 23:33
sdlkfj8

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)