复制 windows 10 锁屏界面 "Windows 聚焦" 壁纸的批处理

@echo off
rem 复制Windows聚焦壁纸到[此电脑]>[图片]>[保存的图片]目录里
set /a inum=1
for /f %%x in ('dir /b /a %localappdata%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets') do call :_duplicate %%x
set inum=
goto _end

:_duplicate
set destination=%userprofile%\Pictures\Saved Pictures
call :_get_file_name
if not exist "%destination%\%inum%.jpg" copy "%localappdata%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets\%1" "%destination%\%inum%.jpg"
set destination=
goto _end

:_get_file_name
if     exist "%destination%\%inum%.jpg" set /a inum=%inum%+1 
if     exist "%destination%\%inum%.jpg" call :_get_file_name
goto _end

:_end