【VBS】指定した時間のポップ表示について

質問

PC起動時に今日の終業予定時間を入力するポップを表示
終業予定時間10分前にポップで"終業予定10分前です"を表示

ということをしたいのですが、可能でしょうか。
現在はExcelで同じようなことをしてますが、ブックを閉じると表示されないのでwindowsのシステムで表示したいです。

回答No.3

kkkkkm · ベストアンサー

No2の追加です。

タスクスケジューラーはコマンドでも実行できますから
たとえば
(以下はキャンセルした時とかエラーの場合は考えていません)

Dim Input
Dim oWshShell

Input = InputBox("時間を入力してください。xx:xx")
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.Run "schtasks /create /tn ""MyAlarmTask"" /tr c:\ok\msgbox_TEST.vbs /sc once /st " & Input

というVBSで実行することもできます。

MyAlarmTaskが自前のタスク名でmsgbox_TEST.vbsがメッセージを出すVBSです

回答No.4

kkkkkm

No3の記載忘れです。

コマンドはこちらを参照しください。
タスクスケジューラと schtasks コマンド
https://maku77.github.io/windows/admin/schtasks.html

回答No.2

kkkkkm

タスクスケジューラーを利用してはいかがですか。
VBSはメッセージを出すだけのコードを書いておけばいけます。

回答No.1

m5048172715

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13178741063
を参考にしたら、書けた。いま動作を正しく確認できた。

Option Explicit

Dim ws, al
Dim x
x = "ただの人間に興味はありません。"

Set ws = CreateObject("WScript.Shell")
al = "22:21"

While CDate(al)>Time
Wend

MsgBox x