有沒有辦法讓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) 

如需更多信息，請參閱我的ASP的免費文章Mastering the MessageBox。