Edited at

当日会議などの注意喚起Alertツール:xxx.vbsを作成してみよう

簡単に作成できる手順は↓

1.中身


TaskTimer.vbs

dim input1,input2

input1=InputBox("[HH24:mm:ss]に提示メッセージを表示させるか?","時刻入力",FormatDateTime(time,vbLongTime))
input2=InputBox("提示メッセージ内容を書いてください。","メッセージ入力","一息を入れましょう! or 会議10分前!")
WScript.Sleep DateDiff("s",FormatDateTime(time,vbLongTime),input1)*1000
msgbox input2,vbSystemModal,"Warning"

2.外部ファイル作成

上記の中身を名前自由につける拡張子をvbsとする外部ファイルへ作成、保存。

3.試行



作成ファイルをダブルクリックして実行




※Windows7,10にて実行試験済み

※設定Alert時刻を将来時刻に設定するように(現時点以前にするとエラー発生してしまう)