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

１．中身

```vb:TaskTimer.vbs dim input1,input2 input1=InputBox("[HH24

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

簡易AlertTimer.vbs

ret1 = InputBox("[HH24:mm:ss]に次のAlert Messageを表示させます","※将来の時刻入力",FormatDateTime(time,vbLongTime))
ret2 = InputBox("Alert内容を記入てください。","メッセージ入力","一息を入れましょう！ or 会議１０分前！")
NewDate = DateDiff("s",FormatDateTime(time,vbLongTime),ret1)
WScript.Sleep NewDate*1000
MsgBox ret2,vbSystemModal,"★Alert"

２．外部ファイル作成

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

３．試行

作成ファイルをダブルクリックして実行
※保存文字コードはSJISでOK、UTF-8はNG ※Windows7,10にて実行試験済み ※設定Alert時刻を将来時刻に設定するように（現時点以前にするとエラー発生してしまう）