QTP中，通过WScript.Shell对象，实现自动弹出并自动关闭的Msgbox

本内容摘自QTP自身的帮助文档。

Using Message Boxes That Close Automatically

The function below shows a message box that disappears after the specified timeout (in seconds). The script execution then continues.

Public Sub MsgBoxTimeout (Text, Title, TimeOut)

       Set WshShell = CreateObject("WScript.Shell")

       WshShell.Popup Text, TimeOut, Title

End Sub

If TimeOut is 0, it behaves just like a normal message box. If TimeOut is greater than 0, the dialog box disappears after the specified number of seconds.

 

调用范例：

MsgBoxTimeout  "2秒后自动关闭","这是个自动关闭的提示框",2