はじめに うちの会社のPCは10分でスリーンセーバが起動してしまう。その度にパスワードを入力して解除するのが面倒なため、スクリーンセーバを抑制するためのVBScriptを作成した。 簡単に書くと "VBScriptで一定間隔でSHIFTキーを押す" だけのことです。 用意するもの VBScriptはMicrosoft Officeが必要でしたっけ? VBSが動作する環境が必要になります。 プログラム 起動プログラム ' ' "シフトキーを押すvbaを一定間隔で呼び出しするスクリプト ' Option Explicit WScript.Echo "Shift Key.vbsを開始します。" '起動用のオブジェクトを生成 Dim objWsh Set objWsh = WScript.CreateObject("WScript.Shell") Dim I For I = 1 To 20 'vb