スリープを防止！VBSで3分毎にSHIFTを押すプログラム

VBSコード

Set objShell = WScript.CreateObject("WScript.Shell")
Do
   WScript.Sleep 1000*60*3
   objShell.SendKeys "+"
Loop

メモ帳に上記コードをコピペし、「(任意の名前).vbs」という名前で保存する。そのままダブルクリックすると起動する。

ダブルクリックだけでは何も変化が無いが、一度起動すれば何度も起動する必要は無い。起動しているかはタスクマネージャーから確認することが出来る。

このプログラムはタスクマネージャーから直接タスクを終了する必要がある。「タスクマネージャー>詳細>wscript.exe」から右下の「タスクの終了」で終了することが出来る。