[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

回复 2# Batcher


    好的,老大

TOP

回复 1# yiyue7


如果需要生成的VBS脚本内容比较多,可以参考:
https://mp.weixin.qq.com/s/McvY4CiR-SYGaCha7lmjIw
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表