vbscript - 一定時間後に MessageBox を自動的に閉じる方法はありますか?

Question

MessageBox でイベントを警告する VBScript がありますが、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 を参照してください。(アーカイブ)