こんにちは、sysin-jamです！
VBSでメッセージ表示したい場合は「MsgBox」を使用します。
ただ、MsgBoxだとメッセージボックスを自動で閉じることができません。
今回は自動で閉じるための方法を紹介します！
その方法はPopupメソッドです。
このメソッドはWindows Scripting Host（Wsh）のメソッドです。
※WshはWindowsのスクリプト実行環境だそうです。
ちなみに、VBAなどでも使えます。
Popupについて
こんな感じのメソッドです。↓
Wsh.Popup(strText,[nSecondsToWait],[strTitle],[nType])| 引数 | 区分 | 内容 |
| strText | 必須 | メッセージボックス内に表示する文字列 |
| nSecondsToWait | 任意 | メッセージボックスを自動で閉じるまでの時間（秒） |
| strTitle | 任意 | タイトル |
| nType | 任意 | ボタンの種類など |
使い方の例はこちらです。↓
1秒で自動的に閉じます。閉じる時間は指定しないと自動で閉じなくなります。
小数点でも行けますが、自分の環境だと0.5以下だとうまく動きませんでした。（0.6はOKでした）
Dim wshShell
Set wshShell = Createobject("WScript.Shell")
wshShell.Popup "システムってこんな感じ" ,1 ,"タイトル" ,vbOkOnly
まとめ
メッセージボックスをたまに使いますが、閉じるためにマウス・キーボード操作が必要なのが地味に手間でした。
popupメソッドを使えばそういった手間が省けて便利です！
コメント