Wednesday, 23 September 2020

No screensaver script

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
WshShell.SendKeys("{SCROLLLOCK}")
WScript.Sleep(174000)
Loop


Save above content with vbs extension in Notepad.

Paste this file in startup folder, so that it automatically runs whenever you start your system.

Goto run (Windows Key + R ), type shell:startup




This script, press Scroll Lock every 2.9 minutes (17400 milliseconds), so that screensaver doesn't appear. 



No comments:

Post a Comment