如何让QTP自动关闭MsgBox

three116

你知道还不帮助人家？！

sunqiang1024

原帖由 木卫十二 于 2007-11-1 18:15 发表
Dim res, WSH
Set WSH = CreateObject("WScript.Shell")
res = WSH.Popup("Closed after 2 seconds.", 2)  '代替msgbox "Closed after 2 seconds"
Set WSH = Nothing

不是用msgbox了

刚试了，不错的代码

zimgxt

刚用了，不错的代码，谢谢分享！！！！！！感激……

47385024

恢复场景不就可以了么？哪那么麻烦？？？

kelly33

QTP自己设置的MSGBOX也是一个对象
Set Msg=Description.create()
msg("text").value="MsgBox Example"
dialog(msg).close


使用这个，好像根本没办法关闭Msgbox吧。如我的语句如下：
Dim myMsg, tt
Set myMsg = Description.Create()
myMsg("text").value="test title"
tt=Msgbox("test title",vbok,"test title")
Dialog(myMsg).close

ls_721521

原帖由 loho1968 于 2007-11-2 13:39 发表
QTP自己设置的MSGBOX也是一个对象
Set Msg=Description.create()
msg("text").value="MsgBox Example"
dialog(msg).close

msgbox 是qtp弹出的窗口，qtp执行到它时就中断了。。。。

yxd2006

还是看不懂，有谁人说得更清楚点吗？
在此先谢了

kasimxiao

直接用print 好了嘛

sincor

set s=createobject("wscript.shell")
t1 = Timer
for i=1 to 10     '将其改成 1 to 1就只循环一次
s.popup "现在正在显示第"&(i)&"条信息!",1,"提示信息",4096+48
Next
t2 = Timer
MsgBox t2-t1

直接稍作修改就可以利用