有没有办法让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 Free。