2021-12-15 如何防止电脑锁屏

Dim objResult

Set objShell = WScript.CreateObject("WScript.Shell")   

Do While True

  objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")

  Wscript.Sleep (6000)

Loop

保存到screensaver.vbs里执行。

Add-Type -AssemblyName System.Windows.Forms

# 你可以根据你的实际情况修改间隔时间

New-Variable -name INTERVAL -Value (60 * 3) -Option Constant -Description 'for 5mins lock default'

get-date

echo `start`

while ($true) {

    $key = '{SCROLLLOCK}'

    get-date

    echo  "press key $key`n"

    try {

        [System.Windows.Forms.SendKeys]::SendWait($key)

        [System.Windows.Forms.SendKeys]::SendWait($key)

    }

    catch {

        Write-Host "An error occurred:"

        Write-Host $_

        Write-Host $_.ScriptStackTrace

    }

    sleep -s $INTERVAL

}

保存到prevent_screen_lock.ps1里执行。