ＶＢＳ

ＶＢスクリプトをまとめています。

強制的にスクリーンセーバーが起動する設定がされている時の対応

マイドキュメントフォルダに下記のファイルを作成する。

[z.vbs]

－－－－－ここから－－－－－

Option Explicit

Dim objShell, objFS, ret

Set objShell = CreateObject("WScript.Shell")

Set objFS = CreateObject("Scripting.FileSystemObject")

objShell.Popup "開始", 2, "確認"

Do

objShell.SendKeys "+"

ret = objFS.FileExists("C:\Users\ログイン名\Documents\loop.txt")

If ret = False Then

objShell.Popup "終了", 2, "確認"

Exit Do

End If

WScript.Sleep 10000

Loop

Set objShell = Nothing

Set objFS = Nothing

－－－－－ここまで－－－－－

※上記の「ログイン名」は各自のログイン名に変更。

上記を入力したら実行してみる。

正しく入力できていれば、「開始」「終了」と表示されて終了します。

同じフォルダに「loop.txt」という０バイトのファイルを作成する。

再度実行してみる。

「開始」と表示されて、ループを繰り返す。

これでスクリーンセーバーが起動されなくなります。

終了させる時は「loop.txt」ファイルを削除します。

※私は「loop_.txt」とファイル名を変更しています。

－　　以　上　　－