VBScript编写Windows防止锁屏脚本程序

2026-03-25 22:14:02发布 2次浏览

详情描述

方法一：模拟按键（简单有效）

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

Do While True
    ' 模拟按下F13键（无实际功能，避免干扰）
    ' 或者使用其他不常用的组合键
    WshShell.SendKeys "{F13}"

    ' 等待一段时间（单位：毫秒）
    WScript.Sleep 60000  ' 每分钟一次
Loop

方法二：移动鼠标（更隐蔽）

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim x, y

Do While True
    ' 获取当前鼠标位置
    x = CreateObject("WScript.Shell").AppActivate("")

    ' 轻微移动鼠标（1像素）
    CreateObject("WScript.Shell").Run "powershell -command ""Add-Type -AssemblyName System.Windows.Forms; [Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point([Windows.Forms.Cursor]::Position.X+1, [Windows.Forms.Cursor]::Position.Y+1)""", 0, True

    ' 等待时间
    WScript.Sleep 30000  ' 每30秒一次
Loop

方法三：使用PowerShell命令（推荐）

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

Do While True
    ' 执行PowerShell命令重置屏幕超时
    WshShell.Run "powershell -command ""$ts = (Get-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name ScreenSaveTimeOut).ScreenSaveTimeOut; if($ts -ne 0) { Set-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name ScreenSaveTimeOut -Value 0; Start-Sleep -Seconds 2; Set-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name ScreenSaveTimeOut -Value $ts }""", 0, True

    ' 模拟轻量级按键（Ctrl键）
    WshShell.SendKeys "^"

    WScript.Sleep 120000  ' 每2分钟一次
Loop

方法四：组合方案（最稳定）

' 防止锁屏脚本 - 多种方法组合
Option Explicit

Dim WshShell, lastMethod, counter
Set WshShell = CreateObject("WScript.Shell")
lastMethod = 0
counter = 0

' 设置屏幕保护时间为0（禁用）
WshShell.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveTimeOut", "0", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveActive", "0", "REG_SZ"

' 主循环
Do While True
    counter = counter + 1

    ' 每30秒切换一种方法
    Select Case lastMethod
        Case 0
            ' 方法1：模拟NumLock切换
            WshShell.SendKeys "{NUMLOCK}"
            WshShell.SendKeys "{NUMLOCK}"
        Case 1
            ' 方法2：模拟Ctrl键
            WshShell.SendKeys "^"
        Case 2
            ' 方法3：模拟Shift键
            WshShell.SendKeys "+"
        Case Else
            ' 方法4：轻微移动鼠标（通过PowerShell）
            WshShell.Run "powershell -command ""[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point([System.Windows.Forms.Cursor]::Position.X+1, [System.Windows.Forms.Cursor]::Position.Y+1)""", 0, True
            lastMethod = -1
    End Select

    lastMethod = lastMethod + 1

    ' 每10分钟显示状态（可选）
    If counter Mod 20 = 0 Then
        WScript.Echo "防止锁屏脚本运行中... " & Now()
    End If

    ' 等待30秒
    WScript.Sleep 30000
Loop

' 清理代码（不会执行到此处）
Sub CleanUp()
    WshShell.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveTimeOut", "600", "REG_SZ"
    WshShell.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveActive", "1", "REG_SZ"
End Sub