vbscript - 有没有办法让 MessageBox 在设定的时间间隔后自动关闭？

Question

我有一个 VBScript 来通过 MessageBox 对事件发出警报，但我希望它在 5 秒左右后自动关闭。有没有办法实现这个目标？

Answer 1

使用 WshShell 对象的 Popup 方法。它有一个超时参数。

intTimeout = 10      'Number of seconds to wait
strMessage = "This is my message box!"
strTitle = "Hello, world!"

Set WshShell = CreateObject("WScript.Shell")
intResult = WshShell.Popup(strMessage, intTimeout, strTitle)

更多信息，请查看我的文章 Mastering the MessageBox ASP 免费。 ( archive )