Windows 脚本下载4K图片设置壁纸

@echo off  
net.exe session 1>NUL 2>NUL && (
    goto gotAdmin
) || (
    goto UACPrompt
)

:UACPrompt  
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs" 
    echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs" 
    "%temp%\getadmin.vbs" 
    exit /B  

:gotAdmin  
    if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )  

:begin

color 3F
chcp 65001

@echo 当前计算机名称 Now Name
hostname
md C:\Picture\
cd C:\Picture\
powershell (new-object System.Net.WebClient).DownloadFile('https://bu.dusays.com/2023/02/22/63f5725d733a8.jpg','bj.jpg')
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Personalization" /v "LockScreenImage" /t REG_SZ /d "C:\Picture\bj.jpg" /f
reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" /v "Wallpaper" /t REG_SZ /d "C:\Picture\bj.jpg" /f
taskkill /f /im explorer.exe & start explorer.exe
pause
评论区
头像