怎样让QTP自动点击脚本中弹出的msgbox窗口?

junlingliu

If Dialog("i-Player").Dialog("Properties").WinRadioButton("TOP LEVEL RECOVERY").Check (CheckPoint("TOP LEVEL RECOVERY_2"))=true then
    'msgbox("-------------是TOP对象-------------")
End if
脚本执行到这里的时候会弹出一个小提示窗口说"------------是TOP对象-------------",要点了"确定"按钮后才可以继续运行,怎么能让QTP自动点击这种提示窗口呢?   请高手指教啊!

junlingliu

24#在跟谁说话?  我去看看场景恢复...

xazaj

不知道你搞定了没有，你可以查查场景回复的资料，这个就是专门针对这样的问题设计的功能，具体步骤就不在这里发了，你自己查查吧，如果只是关闭msgbox 就不要走其他弯路了！

pxwcypx

呵呵，原来你又你出来新的需求啊。。。。。

lilei6322721

具体场景恢复怎么实现呢？

junlingliu

原帖由 pxwcypx 于 2007-12-7 10:34 发表
呵呵，以前和LZ一样啊，问过这样的问题，要是想要结果的话，用reporter.reporter event index,"","" 放入分析报告中岂不是更好。

我没有明白,能再细解释下不?

pxwcypx

呵呵，以前和LZ一样啊，问过这样的问题，要是想要结果的话，用reporter.reporter event index,"","" 放入分析报告中岂不是更好。

junlingliu

原帖由 xiaoyaoke 于 2007-12-7 09:29 发表
“用这个来对付软件测试中随时弹出的窗口？”
呵呵，第一次听说
楼主如果有进展通知下啊

能做当然最好了,不行也没什么不好意思的,毕竟我有想过,思考过,就OK了

junlingliu

原帖由 scorix 于 2007-12-7 10:20 发表


这个方法并不能解决被测系统弹出的窗口

那怎么才可以呢?

scorix

原帖由 junlingliu 于 2007-12-7 08:47 AM 发表


我明白你的意思,这个问题也算是个引子,我是想利用这个来对付 测试软件中随时弹出的窗口

这个方法并不能解决被测系统弹出的窗口

xiaoyaoke

“用这个来对付软件测试中随时弹出的窗口？”
呵呵，第一次听说
楼主如果有进展通知下啊

junlingliu

原帖由 scorix 于 2007-12-6 22:58 发表


你的MsgBox可以删了。。。
另外，自动化脚本投入使用后，谁还看弹出的窗口，输出日志会更好一些

我明白你的意思,这个问题也算是个引子,我是想利用这个来对付 测试软件中随时弹出的窗口

junlingliu

原帖由 xiaoyaoke 于 2007-12-6 18:28 发表
If Dialog("i-Player").Dialog("Properties").WinRadioButton("TOP LEVEL RECOVERY").Check (CheckPoint("TOP LEVEL RECOVERY_2"))=true then
Set Sh = CreateObject("WScript.Shell")
x=sh.Popup("-------------是 ...

谢谢,我知道了.

scorix

原帖由 junlingliu 于 2007-12-6 05:51 PM 发表
If Dialog("i-Player").Dialog("Properties").Static("Static").Check (CheckPoint("Static"))=true then
        msgbox("-------------是TOP对象-------------")
                     Set Sh = CreateObject("WScript. ...

你的MsgBox可以删了。。。
另外，自动化脚本投入使用后，谁还看弹出的窗口，输出日志会更好一些

xiaoyaoke

If Dialog("i-Player").Dialog("Properties").WinRadioButton("TOP LEVEL RECOVERY").Check (CheckPoint("TOP LEVEL RECOVERY_2"))=true then
Set Sh = CreateObject("WScript.Shell")
x=sh.Popup("-------------是TOP对象-------------", 2)
这样就可以吧，楼主自己调调
前面的“”中添显示内容
后面的2是界面存在时间

junlingliu

If Dialog("i-Player").Dialog("Properties").Static("Static").Check (CheckPoint("Static"))=true then
        msgbox("-------------是TOP对象-------------")
                     Set Sh = CreateObject("WScript.Shell")
                    x=sh.Popup("-------------是TOP对象-------------", 2)
else
这样吗?

junlingliu

原帖由 zhuyuancan 于 2007-12-6 15:34 发表
Set Sh = CreateObject("WScript.Shell")
x=sh.Popup("-------------是TOP对象-------------", 2)

你好!能不能解释下,是啥意思?

junlingliu

原帖由 yzem99 于 2007-12-6 14:47 发表
应该是不可以的吧，qtp已经被这个msgbox给暂停了，怎么去关闭啊，除非通过其他程序。
一般msgbox是用于调试的，正常运行的时候要注释掉的。不懂lz用他来干嘛？？？？

我懂你的意思,我觉得QTP可以捕捉WIN的提示并自动点击,  否则如果在运行时出现了某个提示框,那就只能停在那里了?

junlingliu

先谢谢各位的回复,收到,去试下!

junlingliu

我搜了的,就是 搜不到才发的嘛......