スクリーンセーバーを回避する5行
834 ワード
キーボードの自動操作でスクリーンセーバーを回避する
付与されたWindowsパソコン、スクリーンセーバーが強制されてOFF設定ができない
そんなときは次の5行を「~~.vbs」に保存して実行すると、頑張ってくれます。
※ジョークソフトとして検知される環境もあり、情シス系部門から説明を求められたりしますので、事前にそれらしい業務の改善案でやっていたなど、もっともらしい(言い訳じゃなく)ストーリーを考えておいてください!!
プログラム内の説明
- "%+{TAB}"は、キーボードの alt + shift + tab
- WScript.Sleepの3*60*1000は、ミリ秒単位なので3分毎待機します
実行前に、キーボードの alt + shift + tabを自分で操作して
画面切り替えを実行させて、最後に見たタスクに切り替わるか試してください。
webで調べものしていたり、エクセルやワードで何らかの作業しておいて、
それらの画面に切り替わるようであれば事前の動作確認OKです。
Set obShl = WScript.CreateObject("WScript.Shell")
Do
WScript.Sleep 3*60*1000
obShl.SendKeys "%+{TAB}"
Loop
止め方
タスクマネージャーから下記を終了させてください
- Microsoft Windows Based Script Host
Author And Source
この問題について(スクリーンセーバーを回避する5行), 我々は、より多くの情報をここで見つけました https://zenn.dev/oskgw_log/articles/97f94cd5acdf9d著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Collection and Share based on the CC protocol