【VBS】定期的にキー入力してスリープや退席中にならないようにする方法

こんにちは、sysin-jamです！

会社のPC端末にはteamsなどを入れています。

在宅している時にトイレ行ったりとか少し休憩したりしているとteamsなどが退席中になってしまいます。
まぁ、全然良いんですが、「サボってんじゃないか？」的なあらぬ疑惑をかけられてもしょうがないですよね。

なので定期的にキー入力するようにVBSを常駐させておこうと思います。
勝手にキー入力されれば離席していても退席中にならないので。

また、今の端末はスリープ時間を変更できないので、定期的にキー入力されれば同時に回避できて嬉しいです。（セキュリティの面はありますが、家で一人の時とかは良いでしょう）

なんでVBSでやるの？

タスクスケジューラとかでx分間隔で起動とかでキー入力させても良いですが、停止したい時とかタスクスケジューラ開いたりとか面倒なので処理内でループさせてキー入力させます。（端末がほんの少し遅くなるかもだけど）

過去にVBSでそんなことをやったような記憶があったので、今回の現場でもそれでやってみようかなと。

勝手にキー入力を行うためのキーは「F15」を入力するようにします！

割り当てないと使わないキーですし、操作中にもほとんど影響なさそうです。

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.SendKeys "{F15}"

「SendKeys」でキー入力を行います。

Do～Loopで繰り返して、間にSleepで処理を止めておきます。

Set objShell = WScript.CreateObject("WScript.Shell")
Do
    '①入力間隔
    WScript.Sleep 60000*4

    '②F15キーの送信
    objShell.SendKeys "{F15}"
Loop

①Sleepはミリ秒を指定します。60000で1分なので4分待ちます。
②Sleepで待った後、F15キーを入力します。

このDo～Loopで繰り返すVBSを「F15_Run.vbs」としてローカルに保存して実行します。

スタートアップに登録しておけば端末起動時に自動で常駐してくれます。

不要な時はタスクマネージャーからタスクを削除↓すればOKです！

VBSのタスクが常駐してしまうのでどうかなー？と思いましたが、ずっと端末使っている時は起動させなければ良いし、便利っちゃ便利です。
サボってる訳でもないしね。

ではまた！