中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [已结]求批处理改桌面背景(论坛里搜索了,都不成功)
作者:
标题: [已结]求批处理改桌面背景(论坛里搜索了,都不成功) 上一主题 | 下一主题
lywlhs
初级用户





积分 25
发帖 10
注册 2008-10-3
状态 离线
『楼 主』:  [已结]求批处理改桌面背景(论坛里搜索了,都不成功)

今天想弄个批处理换桌面背景。找了找这样的批处理还挺好找的。
但全都用不了。运行了以后要么就是没反应。要么就是桌面背景被换成“无”了。还请高手指点一下。

[ Last edited by HAT on 2008-12-31 at 01:55 ]

2008-12-30 21:25
查看资料  发短消息 网志   编辑帖子  回复  引用回复
lywlhs
初级用户





积分 25
发帖 10
注册 2008-10-3
状态 离线
『第 2 楼』:  

问题已经解决,找到了一个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。居然成功了。这太打击我学习批处理 的信心了。我还是菜菜鸟,说不对的地方,请别喷我。

2008-12-30 21:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 3 楼』:  

不知道楼主有没有搜索到这个:http://www.cn-dos.net/forum/viewthread.php?tid=41491



2008-12-31 01:55
查看资料  发短消息 网志   编辑帖子  回复  引用回复
clamber
初级用户





积分 46
发帖 39
注册 2008-11-2
状态 离线
『第 4 楼』:  

http://upload.cn-dos.net/img/480.rar
我写的,本坛,早于你搜索时间

2010-3-19 11:30
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
clamber
初级用户





积分 46
发帖 39
注册 2008-11-2
状态 离线
『第 5 楼』:  

http://www.cn-dos.net/forum/view ... ighlight=%2Bclian76

2010-3-19 11:31
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: