本内容摘自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
本文介绍了一个QTP函数,该函数用于显示一个会在指定秒数后自动消失的消息框,使得脚本执行无需等待用户操作。通过示例展示了如何调用此函数,并在代码中提供了详细说明。
705

被折叠的 条评论
为什么被折叠?



