电脑不锁屏的js/vbs脚本_防锁屏脚本-优快云博客

1.javaScript的脚本

通过JS来控制键盘，定时按下SCROLLLOCK键，达到电脑不会被锁屏的效果。
通常公司电脑都会自动锁屏，只是时间有长短。有时候闲着了不用电脑，但是却不想让电脑锁屏。那么可以用js代码来控制键盘的按键循环按下实现不锁屏的效果，由于浏览器出于安全考虑，所以下面的代码只在ie上有效。

function PressKey(){
    var objWs = new ActiveXObject("Wscript.Shell");
    objWs.SendKeys("{SCROLLLOCK}");
}
setInterval("PressKey()",60000);//按下按键的间隔时间。

完整实例：

<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <title>I need you still work!</title>
    </head>
    <body bgcolor="#215E21">
        <script type="text/javascript">
            function PressKey(){
                var objWs = new ActiveXObject("Wscript.Shell");
                objWs.SendKeys("{SCROLLLOCK}");
            }
            setInterval("PressKey()",60000);//按下按键的间隔时间。
        </script>
    </body>
</html>

复制上方代码保存为XX.html文件，然后用IE打开，如下

下方弹出框，选择“Allow blocked content”

然后，稍等片刻，会出现

此处选择“Yes”，不要关闭IE，可最小化。这样Windows就不会自动锁屏了。

原文链接：

让电脑不被锁屏的方法_csmzl的博客-优快云博客_电脑不锁屏让电脑不被锁屏的方法，通过JS来控制键盘，定时按下SCROLLLOCK键，达到电脑不会被锁屏的效果。通常公司电脑都会自动锁屏，只是时间有长短。有时候闲着了不用电脑，但是却不想让电脑锁屏。那么可以用js代码来控制键盘的按键循环按下实现不锁屏的效果，由于浏览器出于安全考虑，所以下面的代码只在ie上有效。https://blog.youkuaiyun.com/csmzl/article/details/52708886

让电脑不被锁屏的方法，亲测有效_zhusongziye的博客-优快云博客https://blog.youkuaiyun.com/zhusongziye/article/details/79704546

2.使用vbs脚本

*.vbs的脚本可以在windows环境下直接运行

下面给出两个脚本经过测试都是可以的

下面文件保存为 "never_lock.vbs"

右键在命令提示符中运行，或者直接双击运行

Set ws=Wscript.CreateObject("Wscript.Shell")
If ws.expandenvironmentstrings("%strikkeyflag%")=("on")Then
        wscript.echo("Screen Never Lockout")
        ws.Environment("user").Item("strikkeyflag")="off"
        set mi=getobject("winmgmts:win32_process").instances_
        for each p in mi
        if ucase(p.name)=ucase("wscript.exe")then
            p.terminate
        End If
        Next
        wscript.quit
Else
        wscript.echo("Screen Never Lockout")
        ws.Environment("user").Item("strikkeyflag")="on"
    do
        set WshShell = CreateObject("WScript.Shell")
        WshShell.SendKeys"{ScrollLock}"
        wscript.sleep(280000) 'ms
    Loop
end if

https://www.yisu.com/zixun/10298.html

' 先定义一个Shell对象
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'设置成正需要接续的时间
do
'设置成比屏保时间短点就可以
	WScript.Sleep 60000 '1min 60000ms
	wshShell.SendKeys "{NUMLOCK}"
	WScript.Sleep 500
	wshShell.SendKeys "{NUMLOCK}"
loop

https://blog.youkuaiyun.com/zhusongziye/article/details/79704082https://blog.youkuaiyun.com/zhusongziye/article/details/79704082下面这一条没有测试过