批处理之家 - Powered by Discuz! Board

标题: [系统相关] 批处理下载图片更换电脑桌面壁纸 [打印本页]

作者: yiyue7 时间: 2021-9-23 08:12 标题: 批处理下载图片更换电脑桌面壁纸

@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 如果链接失效，这个可以换成其他的

作者: Batcher 时间: 2021-9-23 09:31

回复 1# yiyue7

如果需要生成的VBS脚本内容比较多，可以参考：
https://mp.weixin.qq.com/s/McvY4CiR-SYGaCha7lmjIw

作者: yiyue7 时间: 2022-4-1 12:34

回复 2# Batcher

好的，老大

欢迎光临批处理之家 (http://bbs.bathome.net/)