中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-06 11:18 |
共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 更换桌面 |
| 可打印版本 714 / 2 |
| 第1楼 5488 | 发表于 2007-11-10 19:56 |
| 初级用户 发帖 16 积分 52 | |
|
更换桌面 请问能否编写一个批处理来实现更换桌面呢?类似于自动桌面程序的那样
|
|
| 第2楼 luckboy45 | 发表于 2007-11-10 20:02 |
| 中级用户 发帖 212 积分 487 | |
|
VBS更换桌面壁纸
'服务器路径,只支持BMP格式 ServerPath="\\server\share$\bmp" '本地文件名，将从服务器复制到本地后改名为这个文件名(包括完整路径) BMPname="e:\crt.bmp" Set FSO = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Set F = FSO.GetFolder(ServerPath) Set FC = F.Files Num = 0 ReDim bmp(FC.Count) For Each F1 in FC If UCase(FSO.GetExtensionName(F1.NAME)) = UCase("BMP") then Num = Num + 1 bmp(Num) = F1.Path End If Next Randomize FSO.CopyFile bmp(Int(Num * Rnd + 1)),BMPname,True WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\TileWallpaper","0","REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper",BMPname,"REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle","2","REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewShadow","1","REG_DWORD" '如果桌面图标未透明，需要刷新组策略，如果已经透明，只需要刷新桌面 WshShell.run "gpupdate /force",0 'WshShell.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters" |
|
| 第3楼 5488 | 发表于 2007-11-10 20:11 |
| 初级用户 发帖 16 积分 52 | |
|
不是吧,我要的是批处理,不是VBS
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |