Script to make windows stop to sleep using VBscript

noSleep.vbs

set wsc = CreateObject("WScript.Shell")
Do
    'Five minutes
    WScript.Sleep(5*60*1000)
    wsc.SendKeys("{NUMLOCK}")
Loop

Nice :)

I always return here whenever I set up a new work pc/laptop :D

hahahaha

how to set this for 30 seconds bro?

'Five minutes
WScript.Sleep(5*60*1000)

soo

'thirty minutes
WScript.Sleep(30*60*1000)

I Have A Code Of Prank
x=msgbox("Your Message", 0+16, "Your Title")

This Is A Prank Error Code

@echo off
:a
color 2
echo 1 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 1 1 1 1
ping localhost -n 1 > nul
echo 1 1 0 1 1 1 0 0 0 1 0 1 a f h 0 0 0 1 0 1 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 0
echo 1 0 0 1 1 0 9 8 1 2 0 1 9 9 2 1 1 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 1 0 1 1
ping localhost -n 1 > nul
echo 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 0 0 01 0 1 0 0 1 0
ping localhost -n 1 > nul
echo 1 0 1 1 1 0 1 1 0 9 1 1 2 1 1 0 9 1 0 5 7 7 8 7 8 1 3 2 1 2 1 2 3 2 1 3 4
ping localhost -n 1 > nul
echo 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 0 1 1 1 4 1 2 1 1 2 0 1 0 1 2 2 1 0 1 1 0 1
goto a

This Is A Matrix Code
VBS File

Or you can send NUMLOCK twice in each iteration. Thanks for this.

You should know that this haxx also works as a real mouse/keyboard "jiggler".
It makes MS Teams' presence consistent! (only works on the app, not the web app)

No more auto-"away"!