禁用电脑屏幕保护脚本

最好的粗让方法是用组策略，点击开始---运行，在d出的框枯凳段里面输入gpedit.msc

在d出窗口左边选择“本地计算机"策略———没誉—用户配置————管理模板————控制面板————显示这时右边就有关于屏幕保护程序的设置了，可以直接在显示设置里面隐藏掉

@echo off & title 一键设置屏幕保护 By 依梦琴瑶

::设置屏幕保护程序路径

set ScrFile=%SystemRoot%\System32\ssText3d.scr

::设置等待时间（分钟），有效值（1-9999）

set TimeOut=15

::设置是否启用登录屏幕，1 启用，0 禁用

set Login=1

::是否立即生效，1 立即（系统将会注销当前帐户），其它数字下次开机后生效

set Effective=1

::如果要启用自定义三维文字，请把参数设为 1，其它数字为不启用自定义。并设置好其它相关内容

set EnableText3d=1

::设置三维文字显示内容

set Text3d=福建

::设置文本字体

set Font=宋体

::主执行代码，如非必要，请勿修改，以免执行出错。

>nul 2>&1 "%SystemRoot%\System32\cacls.exe" "%SystemRoot%\System32\config\SYSTEM"

if '%errorlevel%' NEQ '0' (

    echo 正在请求临时管理员权限...

    goto UACPrompt

) else ( goto Setting )

:UACPrompt

start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

:Setting

set /a TimeOut*=60

set "Key=HKCU\Control Panel\Desktop"

reg add "%key%" /v SCRNSAVE.EXE /t REG_SZ /d "%ScrFile%" /f

reg add "%key%" /v ScreenSaveTimeOut /t REG_SZ /d "%TimeOut%" /f

reg add "%key%" /v ScreenSaverIsSecure /t REG_SZ /d "%Login%" /f

if %EnableText3d% neq 1 goto End

set "Key=HKCU\Software\Microsoft\Windows\CurrentVersion\Screensavers\ssText3d"

reg add "%key%" /v DisplayString /t REG_SZ /d "%Text3d%" /f

reg add "%key%"穗肢 /v FontFace /t REG_SZ /d "%Font%" /f

reg add "%key%" /v DisplayTime /t REG_DWORD /d 0 /f

:End

echo, & echo,

if %Effective% equ 1 (

    echo 按下任意键，系统将注销当前帐户，再次登录后，相关设置即可生效。

    echo 在注销前，请先保存您尚未保存的数据，以免注销后数据丢失。

    pause>nul

    shutdown /l >nul 2>nul

) else (

    echo 按下任意键，将直接退出脚本，但屏幕保护设置页面的参数可能不会有变化。

    echo 但有可能设置已经生效，建议注销帐户或重启电脑，以便正常生效。

    pause>nul

)

exit

哇哈哈，正好手上有一个之前给别人写的设置屏幕猜巧世保护程序的脚本，现在按照您的要求增加宽旁了一些功能，绝对符合您的要求吧！其实三维文字中可以设置的参数，都可以实现，不过既然您没有那些需求，我就不多加入了。我最美！

您看到的这个代码是不支持指定图片目录的，它只支持系统默认的图片目录，以下代码才可以实现自定义图片目录来进行屏幕保护。在ImageDir那里添加自搜汪定义包含图片的目录路径即可

@echo off & title 一键设置指定图片目录为屏幕保护 By 依梦琴瑶

::设置屏幕保护程序路径，为了保唯卖证正常，此项请勿修改(已屏蔽)

REM set ScrFile=%SystemRoot%\System32\ssMyPics.scr

::设置包含图片文件夹的主目录路径，留空为当前脚本所在目录

set ImageDir=

::设置显示屏保时的等待时间（分钟），有效值（1-9999）

set TimeOut=15

::设置是否启用登录屏幕，1 启用，0 禁用

set Login=1

::是否立即生效，1 立即（系统将会注销当前帐户），其它数字下次开机后生效

set Effective=1

::设置图片更换频率（毫秒），有效值（6000 - 180000）

set Interval=6000

::设置图片在屏幕上显示的尺寸大小（%），有效值（25 - 100）

set Percent=100

::设置是否拉伸图片，1 允许，0 拒绝

set Stretch=0

::设置是否显示图片名，1 显示，0 隐藏

set ShowName=0

::设置是否禁用过渡效果，1 禁用，0 启用

set Transition=0

::设置是否使用键盘滚动浏览，1 启用，0 禁用

set Control=1

::1 跳转，0 忽略

set Pay=1

::主执行代码，如非必要，请勿修改，以免执行出错。

if /i "%PROCESSOR_IDENTIFIER:~0,3%"=="X86" (

    set "ScrFile=%SystemRoot%\System32\ssMyPics.scr"

) else (

    set "ScrFile=%SystemRoot%\SysWOW64\ssMyPics.scr"

)

if not exist "%ScrFile%" (

    color 0C & title 缺失图片收藏幻灯片（ssMyPics.scr）屏幕保护程序 By 依梦琴瑶

    echo 如果您使用的是Vista，及其以上的系统，由于系统自带的

    echo “照片”(PhotoScreensaver.scr^)屏幕保护程序，不能使用

    echo 命令方式进行设置，所以我将会使用XP系统上的图片屏幕保

    echo 护程序来实现设置，但由于您系统中缺失了ssMyPics.scr，

    echo 因此当您按下任意键后，我将会跳转到此文件的下载页面，

    echo 请下载后双击运行即可。若XP系统也出现此提示，同样下载

    echo, & echo 请按任意键跳转，或直接点击右上角的 ╳ 放弃下载。

    pause>nul

    goto GotoFileUrl

)

>nul 2>&1 "%SystemRoot%\System32\cacls.exe" "%SystemRoot%\System32\config\SYSTEM"

if '%errorlevel%' NEQ '0' (

    echo 正在请求临时管理员权限...

    goto UACPrompt

) else ( goto Setting )

:UACPrompt

start 世山仔"" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~0"" ::","","runas",1)(window.close)&&exit

:Setting

cd /d "%~dp0" & color 0a

if not defined ImageDir set "ImageDir=%cd%"

if not exist "%ImageDir%" (

    color 0C & title 路径不存在 By 依梦琴瑶

    echo 设置的图片主目录路径不存在

    ping 127.0.0.1 -n "4">nul

    exit

)

set /a TimeOut*=60

set "Key=HKCU\Control Panel"

set "SSS=Screen Saver.Slideshow"

reg add "%key%\Desktop" /v SCRNSAVE.EXE /t REG_SZ /d "%ScrFile%" /f

reg add "%key%\Desktop" /v ScreenSaveTimeOut /t REG_SZ /d "%TimeOut%" /f

reg add "%key%\Desktop" /v ScreenSaverIsSecure /t REG_SZ /d "%Login%" /f

reg add "%key%\%SSS%" /v ChangeInterval /t REG_DWORD /d %Interval% /f

reg add "%key%\%SSS%" /v MaxScreenPercent /t REG_DWORD /d %Percent% /f

reg add "%key%\%SSS%" /v AllowStretching /t REG_DWORD /d %Stretch% /f

reg add "%key%\%SSS%" /v DisplayFilename /t REG_DWORD /d %ShowName% /f

reg add "%key%\%SSS%" /v DisableTransitions /t REG_DWORD /d %Transition% /f

reg add "%key%\%SSS%" /v AllowKeyboardControl /t REG_DWORD /d %Control% /f

reg add "%key%\%SSS%" /v ImageDirectory /t REG_SZ /d "%ImageDir%" /f

:End

echo, & echo,

if %Effective% equ 1 (

    echo 按下任意键，系统将注销当前帐户，再次登录后，相关设置即可生效。

    echo 在注销前，请先保存您尚未保存的数据，以免注销后数据丢失。

    pause>nul

    shutdown /l >nul 2>nul

) else (

    echo 按下任意键，将直接退出脚本，但屏幕保护设置页面的参数可能不会有变化。

    echo 但有可能设置已经生效，建议注销帐户或重启电脑，以便正常生效。

    pause>nul

)

if %Pay% equ 1 goto ToMe

exit

:ToMe

set "S=.:ailnhpst/fPdv"

start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"

exit

:GotoFileUrl

@echo off & cls & Title 跳转页面 By 依梦琴瑶

color 0A & mode 60,4

echo 即将跳转至以下网址页面：

set "wA=ht"&set "wB=tps"&set "wC=://"&set "wD=pan"

set "wE=bai"&set "wF=du"&set "wG=com"&set "wH=/s/"

set "PCode=1oo2jPt7VanrX7iV99biS6Q"

set "P_PSW="

set "PUrl=%wA%%wB%%wC%%wD%.%wE%%wF%.%wG%%wH%%PCode%"

echo, & echo     %PUrl%

ping 127.0.0.1 -n "4">nul

start "" "%PUrl%"

if defined P_PSW start "" mshta VBScript:Msgbox("请输入此提取码∶   %P_PSW%",vbSystemModal,"提取码")(close)

exit

---