30秒ごとに休憩しましょうとダイアログを10秒表示させるVBSのテスト

Set objShell = CreateObject("WScript.Shell")
Do
'   WScript.Echo "Shiftを押す"
   WScript.Sleep 1000*20
   'objShell.SendKeys "+"
'msgbox "30秒ごとにそろそろ休憩しましょうとダイアログを表示させるテスト"
objShell.Popup "30秒ごとに休憩しましょうとダイアログを10秒表示させるテスト", 10 , "お疲れ様です", vbOKOnly + vbInformation + vbSyste'mModal
'Set objShell = Nothing
Loop

このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証が無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。