[系统相关] 批处理下载图片更换电脑桌面壁纸

yiyue7

@echo off
del c:\1.vbs
echo Dim obj1,obj2 >>c:\1.vbs
echo Dim url >>c:\1.vbs
echo start = timer >>c:\1.vbs
echo url =  "https://unsplash.it/1600/900?random" >>c:\1.vbs
echo Set obj1 = CreateObject("msxml2.xmlhttp") >>c:\1.vbs
echo Set obj2 = CreateObject("adodb.stream") >>c:\1.vbs
echo obj1.open "get",url,False >>c:\1.vbs
echo obj1.send >>c:\1.vbs
echo temp = obj1.responseBody >>c:\1.vbs
echo obj2.Type = 1 >>c:\1.vbs
echo obj2.Mode = 3 >>c:\1.vbs
echo obj2.Open() >>c:\1.vbs
echo obj2.Write(temp) >>c:\1.vbs
echo obj2.SaveToFile "c:\WINDOWS\Web\Wallpaper\ohseven.bmp",2 >>c:\1.vbs
echo obj2.Close>>c:\1.vbs
call c:\1.vbs
ping 127.0.0.1 -n 20>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v "WallpaperStyle" /t reg_sz /d 2 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d C:\WINDOWS\Web\Wallpaper\ohseven.bmp /f
gpupdate /force
del c:\1.vbs

https://unsplash.it/1600/900?random 如果链接失效，这个可以换成其他的

yiyue7

回复 2# Batcher


    好的，老大