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

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

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 发表
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

学习了，非常感谢

		自动登录	找回密码
密码			(注-册)加入51Testing

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

站长推荐 /1