下载bing壁纸 每日一图 并设置为桌面背景批处理

@echo off
chcp 65001 >nul
setlocal enabledelayedexpansion

:: ========== 配置区域（已改好路径） ==========
set "SAVE_FOLDER=C:\Users\XXX\Pictures"
set "WALLPAPER_FILE=Bing_Daily_Wallpaper.jpg"
set "FULL_PATH=%SAVE_FOLDER%\%WALLPAPER_FILE%"
:: ===========================================

if not exist "%SAVE_FOLDER%" (
    mkdir "%SAVE_FOLDER%"
    echo 已创建壁纸保存文件夹：%SAVE_FOLDER%
)

echo.
echo ==============================================
echo 正在获取今日必应壁纸...
echo ==============================================
echo.

powershell -Command "$xml = New-Object System.Xml.XmlDocument; $xml.Load('https://cn.bing.com/HPImageArchive.aspx?format=xml&idx=0&n=1&mkt=zh-CN'); $url = 'https://cn.bing.com' + $xml.images.image.urlBase + '_1920x1080.jpg'; Invoke-WebRequest -Uri $url -OutFile '%FULL_PATH%' -UseBasicParsing"

if not exist "%FULL_PATH%" (
    echo.
    echo 错误：壁纸下载失败！请检查网络连接。
    pause
    exit /b 1
)

echo.
echo 壁纸下载完成，正在设置为桌面背景...
echo.

powershell -Command "$code = Add-Type -MemberDefinition '[DllImport(\"user32.dll\")]public static extern int SystemParametersInfo(int uAction,int uParam,string lpvParam,int fuWinIni);' -Name Win32 -PassThru; $code::SystemParametersInfo(20,0,'%FULL_PATH%',3)"

echo.
echo ==============================================
echo 必应壁纸已成功设置为桌面背景！
echo 保存位置：%FULL_PATH%
echo ==============================================
echo.

timeout /t 2 /nobreak >nul
exit

需替换文件夹地址为自己的。