CGメソッド

CG制作に関してのヒント

MENU

【Windows】起動時やシャットダウン時にメッセージを表示する方法

指定時間内に勤怠やら日報やらを記入しないといけない時に、忘れないようにメッセージを出してみました。

起動時にメッセージ

下記のvbsをスタートアップに入れておくだけのものです。起動時にメッセージが表示されます。

f:id:min0124:20170516234602p:plain

勤怠.vbs

MyVar = MsgBox ("勤怠の入力を済ませましたか?", 0, "勤怠")

シャットダウン時にメッセージ

ちゃんとするならグループポリシーにスクリプトを入れておくべきなのでしょうが、Windowsのホームエディションでも機能するvbsを書いてみました。

起動させて、1分待つとシャットダウンされます。

その間に「キャンセル」を押すとシャットダウンが解除されます。

おすすめはショートカットにして、アイコンを電源にしてデスクトップ置いておくことです。

f:id:min0124:20170516234715p:plain

シャットダウン.vbs

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "C:\Windows\system32\shutdown.exe -s -f -t 60"
A = MsgBox("シャットダウンしますか?",vbOKCancel,"確認")
If A = vbcancel Then
objWshShell.Run "C:\Windows\System32\shutdown.exe -a"
End If