中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 22:52 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 桌面图标自动排列→勾选/取消勾选→VBS版
可打印版本 　3,325 / 19
第1楼　baomaboy 发表于 2007-05-11 18:35
银牌会员　发帖 554　积分 1,513
桌面图标自动排列→勾选/取消勾选→VBS版
应eech要求做的，跟踪注册表不成功，只有转用快捷键方式了。
晕，eech居然爱好装完系统后精简掉(删)"显示桌面.SCF"，^_^

以前写过一个管理快捷方式的小程序正好附带了修复显示桌面.SCF的功能：

新建快捷方式到任意处→VBS版

如果你误删除了快速启动栏的“显示桌面”，发送到中的“我的文档”、“邮件接收者”、“桌面快捷方式”，用此程序都可以修复。

下面改为自动生成.SCF


'''DisktopIcon_AutoArrange.VBS by baomaboy
Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(1),"ShowDisktop.SCF"),2,True)
OF.Write(""&vbcrlf&"Command=2"&vbcrlf&"IconFile=explorer.exe,3"&vbcrlf&""&vbcrlf&"command=ToggleDesktop")
OF.Close
if (WshShell.CurrentDirectory = WshShell.SpecialFolders("Desktop")) = "False" then
WshSHell.Run("ShowDisktop.SCF")
end if
WScript.Sleep 500
WshSHell.SendKeys "{F5}+{F10}e"
WshSHell.SendKeys "+{F10}IA"
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit


[ Last edited by baomaboy on 2008-3-24 at 10:19 PM ]
第2楼　eech 发表于 2007-05-11 21:17
高级用户　发帖 346　积分 906
运行后,出现此图
http://www2.freep.cn/Photo.php?url=photo36/0705112115293666.JPG
第3楼　ronin 发表于 2007-05-11 22:38
中级用户　发帖 111　积分 421
我用了，完全正常，能不能用VBS勾选/取消勾选本地连接的那个 Microsoft网络的文件和打印机共享的那个选项

[ Last edited by ronin on 2007-5-11 at 10:42 PM ]
第4楼　baomaboy 发表于 2007-05-11 22:46
银牌会员　发帖 554　积分 1,513
我这里运行正常啊，难道你的scf文件和rar关联了，你看没看被压缩的是什么？文件夹还是那个scf文件？
第5楼　baomaboy 发表于 2007-05-11 23:39
银牌会员　发帖 554　积分 1,513
Originally posted by ronin at 2007-5-11 22:38:
我用了，完全正常，能不能用VBS勾选/取消勾选本地连接的那个 Microsoft网络的文件和打印机共享的那个选项

[ Last edited by ronin on 2007-5-11 at 10:42 PM ]


理论上可以实现
第6楼　eech 发表于 2007-05-12 17:41
高级用户　发帖 346　积分 906
Originally posted by ronin at 2007-5-11 22:38:
我用了，完全正常，能不能用VBS勾选/取消勾选本地连接的那个 Microsoft网络的文件和打印机共享的那个选项

[ Last edited by ronin on 2007-5-11 at 10:42 PM ]


老兄,想我所想,说出了我的心声,你求baomaboy 兄,再写一个啊,支持你
第7楼　eech 发表于 2007-05-12 17:44
高级用户　发帖 346　积分 906
这个脚本无论放在哪里运行,结果弹出一个压缩脚本自身窗口,我卸载RAR再试试
第8楼　eech 发表于 2007-05-12 17:47
高级用户　发帖 346　积分 906
现在变成了,这个脚本的右键窗口,不知是不是系统问题,我重装一次,再试试
第9楼　eech 发表于 2007-05-12 23:04
高级用户　发帖 346　积分 906
一个建议,能否在脚本加上{WIN+d},这样脚本在任意目录下都可以生效了,
现在的脚本,我放在桌面上运行才行
第10楼　baomaboy 发表于 2007-05-12 23:33
银牌会员　发帖 554　积分 1,513
To eech
又改了下，你可以用批处理生成了。
第11楼　baomaboy 发表于 2007-05-12 23:40
银牌会员　发帖 554　积分 1,513
Originally posted by eech at 2007-5-12 23:04:
一个建议,能否在脚本加上{WIN+d},这样脚本在任意目录下都可以生效了,
现在的脚本,我放在桌面上运行才行


本来设计的就不只是在桌面运行，如果只能在桌面运行还用这么多句吗
WshSHell.Run(""""&ShowDisktop&"""")就是在代替 win+d

如果win键我可以send的话，还用的着WshSHell.Run(""""&ShowDisktop&"""")原帖不是说明了吗，至今未知win键如何send。当然不能是Ctrl+Esc，是Win组合键。

[ Last edited by baomaboy on 2007-5-12 at 11:59 PM ]
第12楼　baomaboy 发表于 2007-05-13 00:04
银牌会员　发帖 554　积分 1,513
Originally posted by ronin at 2007-5-11 22:38:
我用了，完全正常，能不能用VBS勾选/取消勾选本地连接的那个 Microsoft网络的文件和打印机共享的那个选项

[ Last edited by ronin on 2007-5-11 at 10:42 PM ]


你可以试一下control Netcpl.cpl运行可以打开“网络连接吗” 我这里打不开

算了还是曲折一点吧

Microsoft 网络的文件和打印机共享→勾选/取消勾选→VBS版

[ Last edited by baomaboy on 2007-5-13 at 01:12 AM ]
第13楼　lxmxn 发表于 2007-05-13 03:40
版主　发帖 4,938　积分 11,386
Originally posted by baomaboy at 2007-5-13 00:04:


你可以试一下control Netcpl.cpl运行可以打开“网络连接吗” 我这里打不开

算了还是曲折一点吧


打开“网络连接”可以直接运行 start ncpa.cpl ，xp sp2测试通过。
第14楼　baomaboy 发表于 2007-05-13 03:45
银牌会员　发帖 554　积分 1,513
Originally posted by lxmxn at 2007-5-13 03:40:

打开“网络连接”可以直接运行 start ncpa.cpl ，xp sp2测试通过。


谢谢兄 是我错记为Netcpl.cpl了。这样可以去处几个sendkeys值了减少出错的机率。
第15楼　lxmxn 发表于 2007-05-13 03:54
版主　发帖 4,938　积分 11,386
Re baomaboy:

如果忘记了哪个cpl，可以在命令行敲入 来查看系统目录中所有的cpl文件，这样方面查找些。

ps 扯远了，呵呵。
1 2 　下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023