怎样让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自动点击这种提示窗口呢?   请高手指教啊!

yzem99

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

xiaodong

场景恢复.....很容易就做到了.

coletan

用print吧。。。
vbs也可以实现，忘记代码了~论坛有搜下

zhuyuancan

Set Sh = CreateObject("WScript.Shell")
x=sh.Popup("-------------是TOP对象-------------", 2)

zrg9399

论坛中有很多这样的帖子，建议提问前先搜索一下，呵呵

junlingliu

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

junlingliu

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

junlingliu

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

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

junlingliu

原帖由 zhuyuancan 于 2007-12-6 15:34 发表
Set Sh = CreateObject("WScript.Shell")
x=sh.Popup("-------------是TOP对象-------------", 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
这样吗?

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是界面存在时间

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可以删了。。。
另外，自动化脚本投入使用后，谁还看弹出的窗口，输出日志会更好一些

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("-------------是 ...

谢谢,我知道了.

junlingliu

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


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

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

xiaoyaoke

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

scorix

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


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

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

junlingliu

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


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

那怎么才可以呢?

junlingliu

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

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

pxwcypx

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