51Testing软件测试论坛

标题: 怎么能够执行键盘操作啊？急 [打印本页]

作者: fzl6688 时间: 2009-5-25 17:08
标题: 怎么能够执行键盘操作啊？急
录制软件后，在脚本里加入了一些控制语句，但是弹出的对话框不是软件系统里有的，是我自己写的msgbox，怎么弄才能够使脚本执行时，能够自动点击我自己写的msgbox的确定按钮。为什么用sendkeys不管用啊，大家来说说，谢谢

作者: fei.ge 时间: 2009-5-25 17:22
下面的方法代替msgbox..
==============================================================
Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed after 2 seconds.", 2) '代替msgbox "Closed after 2 seconds"
Set WSH = Nothing
==============================================================

作者: fei.ge 时间: 2009-5-25 17:24
如果你用：
msgbox "hello,sendkeys!"

set WshShell = CreateObject("Wscript.Shell")
WshShell.Sendkeys"{Enter}"

msgbox弹出一个提示框，需要你点击后QTP脚本才能执行下面的sendkeys的代码。

作者: blizzardlyk 时间: 2009-5-25 18:07
还是用自动关闭的那种方法比较好吧,MSGBOX 相当于一个断点了

作者: fzl6688 时间: 2009-5-26 09:23
如果我希望用这个对话框来做一些判断。该比如如果对话框出现我执行一段程序，否则另一段。想利用那个弹出的对话框，是不是不可以啊？

作者: fei.ge 时间: 2009-5-26 10:12

原帖由 fzl6688 于 2009-5-26 09:23 发表
如果我希望用这个对话框来做一些判断。该比如如果对话框出现我执行一段程序，否则另一段。想利用那个弹出的对话框，是不是不可以啊？

如果是测试程序弹出的提示框，你可以通过obj.exist来判断。
如果是你自己写的msgbox，那么为我们能不能换一种思路？采用一个布尔形变量，判断变量的值来达到你的效果。

作者: weiyaodong 时间: 2009-5-26 10:28

原帖由 fei.ge 于 2009-5-26 10:12 发表

如果是测试程序弹出的提示框，你可以通过obj.exist来判断。
如果是你自己写的msgbox，那么为我们能不能换一种思路？采用一个布尔形变量，判断变量的值来达到你的效果。

正确，不一定要用弹出框做判断！

作者: test1978 时间: 2009-6-1 10:56
弹出也可以使用print啊，挺好用的

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