chjy 发表于 2010-5-20 16:57:20

QTP运行脚本里面的msgbox有办法脚本确定或取消么

QTP运行脚本，触发里面的msgbox有办法用脚本来点击确定或取消么？网上找了很多资料但还找不到解决方法

[ 本帖最后由 chjy 于 2010-5-20 16:59 编辑 ]

skyzhu 发表于 2010-5-20 17:29:01

。。。既然还要操作关掉，那就别弹msgbox了
有什么特殊目的？

TIB 发表于 2010-5-20 20:39:50

可以用Print替代Msgbox显示消息，或者把消息用Reporter写入测试结果中

yahuu 发表于 2010-5-20 23:34:25

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
intreturn =WshShell.Popup("提示内容",5,"标题",1)
MsgBox intreturn

S小虾米 发表于 2010-5-21 09:45:00

用print就行了吧

chjy 发表于 2010-5-21 13:37:11

msgbox是自己在调试的时候添加进去的 后来参数化了前面的登录而需要多次运行 就遇到了怎么关闭msgbox这个问题 目前暂时也没有可以关闭msgbox的办法
钻牛角尖了，非要关闭msgbox，可以用print的，非常感谢大家的提醒

chjy 发表于 2010-5-21 13:38:35

原帖由 yahuu 于 2010-5-20 23:34 发表 http://bbs.51testing.com/images/common/back.gif
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
intreturn =WshShell.Popup("提示内容",5,"标题",1)
MsgBox intreturn
这个还是会有返回值 一样是弹出msgbox还是要手工点击

yahuu 发表于 2010-5-21 17:10:35

你不仔细看，我最后一个msgbox是显示第四行的结果。
意思是说，叫你用第四行的方法
5是延迟5秒，它会自动退出。
手动点击确定，返回1，手动点击取消，返回2.

chjy 发表于 2010-5-21 17:49:44

TO：yahuu
俺菜鸟 别介意 遇到什么就学什么 你上面的代码我还没玩过 马上去帮助看看
注释了下 运行可以实现msgbox的要求 谢谢

zxz1337 发表于 2012-8-19 15:26:31

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
intreturn =WshShell.Popup "提示内容",5,"标题",1
MsgBox intreturn
是可以的，我试验过了，O(∩_∩)O~

louqqson008 发表于 2012-8-20 13:50:58

学习下...

AntonioNikki 发表于 2012-8-20 13:56:52

学习了， 非常感谢
页: [1]
查看完整版本: QTP运行脚本里面的msgbox有办法脚本确定或取消么