VbScript- Auto press key

This is VBScript example of automatically pressing [SHIFT] key every 30sec to avoid screen lock due to inactivity

Open Notepad, type this commands & save as .vbs

---

Dim myKey

set myKey=CreateObject("WScript.Shell")

Do While True

myKey.SendKeys "+"

WScript.Sleep 30000

Loop

---

Dblclick on file to run the program. To terminate, [End Process] wscript.exe from TaskManager