怎么能够执行键盘操作啊？急

fzl6688

录制软件后，在脚本里加入了一些控制语句，但是弹出的对话框不是软件系统里有的，是我自己写的msgbox，怎么弄才能够使脚本执行时，能够自动点击我自己写的msgbox的确定按钮。为什么用sendkeys不管用啊，大家来说说，谢谢

fei.ge

下面的方法代替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

如果你用：
msgbox "hello,sendkeys!"

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


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

blizzardlyk

还是用自动关闭的那种方法比较好吧,MSGBOX 相当于一个断点了

fzl6688

如果我希望用这个对话框来做一些判断。该比如如果对话框出现我执行一段程序，否则另一段。想利用那个弹出的对话框，是不是不可以啊？

fei.ge

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

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

weiyaodong

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



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

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

test1978

弹出也可以使用print啊，挺好用的