如何一键设置某文件夹下图片为屏幕保护程序_软件运维

您看到的这个代码是不支持指定图片目录的，它只支持系统默认的图片目录，以下代码才可以实现自定义图片目录来进行屏幕保护。在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

以下代码已测试通过，相关参数请自行修改。

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

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

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

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

set ImageDir=

::设置日期文件夹的命名格式，Y 年份、M 月份、D 日期

::如果需要附带其它文字，请务必保证文件夹的名字中不能含

::有 Y y M m D d 这几个字母，否则会被识别成年月日数字的。

set Format=MD-Y

::设置显示屏保时的等待时间（分钟），有效值（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 "Y=%date:~0,4%" & set "M=%date:~5,2%" & set "D=%date:~8,2%"

call set "Format=%%Format:M=%M%%%"

call set "Format=%%Format:Y=%Y%%%"

call set "Format=%%Format:D=%D%%%"

set "YMD=%Format%"

if not exist "%ImageDir%\%YMD%" (

color 0C & title 目录不存在 By 依梦琴瑶

echo 今天的图片目录不存在

ping 127.0.0.1 -n "4">nul

exit

)

set "ImageDir=%ImageDir%\%YMD%"