今天想弄个批处理换桌面背景。找了找这样的批处理还挺好找的。
但全都用不了。运行了以后要么就是没反应。要么就是桌面背景被换成“无”了。还请高手指点一下。
[ Last edited by HAT on 2008-12-31 at 01:55 ]
但全都用不了。运行了以后要么就是没反应。要么就是桌面背景被换成“无”了。还请高手指点一下。
[ Last edited by HAT on 2008-12-31 at 01:55 ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]求批处理改桌面背景（论坛里搜索了，都不成功）
查看 1,000 回复 4
楼 主
[已结]求批处理改桌面背景（论坛里搜索了，都不成功）
发表于 2008-12-30 21:25 · 中国 宁夏 银川 兴庆区 电信
第 2 楼
发表于 2008-12-30 21:43 · 中国 宁夏 银川 兴庆区 电信
问题已经解决，找到了一个VBS改的。很好很强大。
DIM WSH
DIM objShell
DIM wallname
Randomize
wallname="c:\123\" + cstr(Int((1 * Rnd) + 1)) + ".bmp"
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.Regwrite"HKCU\Control Panel\Desktop\Wallpaper",wallname,"REG_SZ"
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 0, TRUE)
代码是这样的，虽然看不懂，但确实改成功了。在论坛里和baidu上找了好多批处理，都改不成功，无意中看到了这个vbs。居然成功了。这太打击我学习批处理 的信心了。我还是菜菜鸟，说不对的地方，请别喷我。
DIM WSH
DIM objShell
DIM wallname
Randomize
wallname="c:\123\" + cstr(Int((1 * Rnd) + 1)) + ".bmp"
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.Regwrite"HKCU\Control Panel\Desktop\Wallpaper",wallname,"REG_SZ"
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", 0, TRUE)
代码是这样的，虽然看不懂，但确实改成功了。在论坛里和baidu上找了好多批处理，都改不成功，无意中看到了这个vbs。居然成功了。这太打击我学习批处理 的信心了。我还是菜菜鸟，说不对的地方，请别喷我。
第 3 楼
发表于 2008-12-31 01:55 · 美国 惠普HP
不知道楼主有没有搜索到这个：http://www.cn-dos.net/forum/viewthread.php?tid=41491
第 4 楼
发表于 2010-03-19 11:30 · 中国 天津 电信
http://upload.cn-dos.net/img/480.rar
我写的，本坛，早于你搜索时间
我写的，本坛，早于你搜索时间
第 5 楼
发表于 2010-03-19 11:31 · 中国 天津 电信
论坛跳转: