はじめに うちの会社の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
![スクリーンセーバの起動を抑制する - vbsバージョン - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/6c032ee5bb7ca04adea80b8f6329ad1004adc515/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-412672c5f0600ab9a64263b751f1bc81.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9JUUzJTgyJUI5JUUzJTgyJUFGJUUzJTgzJUFBJUUzJTgzJUJDJUUzJTgzJUIzJUUzJTgyJUJCJUUzJTgzJUJDJUUzJTgzJTkwJUUzJTgxJUFFJUU4JUI1JUI3JUU1JThCJTk1JUUzJTgyJTkyJUU2JThBJTkxJUU1JTg4JUI2JUUzJTgxJTk5JUUzJTgyJThCJTIwLSUyMHZicyVFMyU4MyU5MCVFMyU4MyVCQyVFMyU4MiVCOCVFMyU4MyVBNyVFMyU4MyVCMyZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnM9MjVkZDRkNDZhNWU1NWEwYWYyZjYwZTliOGI2ZmU1ZTY%26mark-x%3D142%26mark-y%3D57%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9NzcwJnR4dD0lNDB0bGFiJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz1iZTcyZDhkY2I1ZTUzOWQ3ODVlMDRlNmRjZjE3YjE3Yw%26blend-x%3D142%26blend-y%3D486%26blend-mode%3Dnormal%26s%3Dd2c608f091c1384bfcfdda9b8e1f5ec9)