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 on ASP Free。（存档）