1.批处理一批电脑的保源保代屏保

批处理一批电脑的屏保

       @echo off

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

       set ScrFile=%SystemRoot%\System\common.scr

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

       set TimeOut=

       ::设置是码屏码否启用登录屏幕，1 启用，保源保代0 禁用

       set Login=1

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

       set Effective=1

       ::如果要启用自定义三维文字，码屏码excel+工具+源码请把参数设为 1，保源保代其它数字为不启用自定义。码屏码并设置好其它相关内容

       set EnableText3d=1

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

       set Text3d=福建

       ::设置文本字体

       set Font=宋体

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

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

       if '%errorlevel%' NEQ '0' (

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

           goto UACPrompt

       ) else ( goto Setting )

       :UACPrompt

       start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe",保源保代html++效果源码"/c %~s0 ::","","runas",1)(window.close)&&exit

       :Setting

       set /a TimeOut*=

       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 按下任意键，系统将注销当前帐户，码屏码再次登录后，保源保代相关设置即可生效。在线答题+源码+asp

           echo 在注销前，请先保存您尚未保存的数据，以免注销后数据丢失。uc小游戏+源码

           pause>nul

           shutdown /l >nul 2>nul

       ) else (

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

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

           pause>nul

       )

       exit

       发送该批处理和.scr文件给每一个人，拷贝到%SystemRoot%\System\

       目录下，通知执行该脚本