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

Good one. But toggling the Numlock every five minutes might annoy some people. I suggest using this instead:
wsc.SendKeys("{F13}")
F13 functionality is still not implemented in Windows. It is left for future use. But it is a valid key. So using this won't affect any other operations

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

Hi,

I run it but i need to stop it ? please guide me

You could run it in cmd and close cmd when you want to stop it.

You could use task manager to kill the command

You can run it from cmd and then use ctrl+c in case if you want to stop.
cmd:> cscript scriptname.vbs

Hi,
It's working. But i want to add a condition, if on AC power then send keys.
Please guide.

Above code is not working for me. Sapience buddy(time tracking tool) unable to track this timing. Pkease help me

"Hi All,

Can you please tell me how to get rid of sapience buddy (time tracking tool). Am unable to convert offline hours to work time hours since its disabled by admin.

Even if i am browsing over stack overflow /oracle/IBM docs website or any learning platform its taking it as offline hours.

Other than company website its taking it as offline hours.

And My manager telling me to complete 9 hrs in work time which is on company website only and it is not possible for me to do.

From last 2 week am sitting infront of system for approx 13 hrs/day (including browsing hrs)

Note:- 1) i am not using youtube/netflix or any other OTT platforms to spend approx 13 hrs/day.
2) Even i tried all the ways to keep system on at all time and no outcome of it.

Kindly suggest me how to tackle this.

TIA"

works like a charm!! thanks @valdergallo and @sriramkannan95

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"!