bat修改桌面背景图片立即生效已解决

保存为BAT格式，选ANSI编码
::以下代码
<# :
@璐村惂鐢ㄦ埛_000076K馃惥 off
mode concols=50 lines=16
echo.
echo 拖入图片：
echo.
set/p l=
echo.
powershell "Invoke-command ([ScriptBlock]::Create([io.file]::ReadAllText('%~f0',[Text.Encoding]::Default)))" 2>nul 1>nul
echo 完成
pause>nul
#>
function Set-Wallpaper($l){Add-Type @"
using System;using System.Runtime.InteropServices;public class Params{[DllImport("User32.dll")]
public static extern int SystemParametersInfo(Int32 uAction,Int32 uParam,String lpvParam,Int32 fuWinIni);}
"@;[Params]::SystemParametersInfo(0x0014, 0, $l, 0x01 -bor 0x02)};Set-WallPaper "$env:l"

@璐村惂鐢ㄦ埛_000076K馃惥 off
mode concols=50 lines=16
echo.
echo 拖入图片并回车：
echo.
set/p l=
echo.
reg add "HKCU\Control Panel\Desktop" /v "WallpaperStyle" /d "10" /f 2>nul 1>nul
reg add "HKCU\Control Panel\Desktop" /v "Wallpaper" /d "%l%" /f 2>nul 1>nul
powershell "Add-Type -TypeDefinition 'using System;using System.Runtime.InteropServices;public class a{[DllImport("""user32.dll""")]public static extern int SystemParametersInfo(int uAction, int uParam, string lpvParam, int f);public static int e(string f){return SystemParametersInfo(20,1,f,0x2);}}';[a]::e("""%l%""")" 2>nul 1>nul
pause>nul

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

1回复贴，共1页

<<返回批处理吧

分享到:

日	一	二	三	四	五	六