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

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

屏保里面可以选择图片收藏幻灯片.然后把你想设置的图片或相片装一个文件夹里面就可以选择了.

具体 *** 作:桌面鼠标右键-属性-屏幕保护程序-中间有行字"屏幕保护程序"-下面有个框框,点击选择"图片收藏幻灯片"-再点"设置"-中间有行字"使用该文件夹中的图片"-点击后面的"浏览".会出现个对话框,然后你选择你装图片的文件夹就可以了.

可能你的系统是精简版的。你试试其他的第三方屏保软件。

在搜索引擎上搜索 晨风软件工作室

官方网站上有一款名为“电脑动态屏保专家”的绿色免费软件，支持设置密码保护、背景音乐、七彩透明泡泡、显示时钟、自动切换桌面壁纸、一键进入屏保、自动下载网络图片、隐藏、锁定文件夹、定时关机、定时执行各种 *** 作任务，同时支持各种动态图片格式。

比系统自带的屏保强很多！

---