标题: 桌面图标自动排列→勾选/取消勾选→VBS版
[打印本页]
作者: baomaboy
时间: 2007-5-11 18:35
标题: 桌面图标自动排列→勾选/取消勾选→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 ]
作者: eech
时间: 2007-5-11 21:17
作者: ronin
时间: 2007-5-11 22:38
我用了，完全正常，能不能用VBS勾选/取消勾选本地连接的那个 Microsoft网络的文件和打印机共享的那个选项
Last edited by ronin on 2007-5-11 at 10:42 PM ]
作者: baomaboy
时间: 2007-5-11 22:46
我这里运行正常啊，难道你的scf文件和rar关联了，你看没看被压缩的是什么？文件夹还是那个scf文件？
作者: baomaboy
时间: 2007-5-11 23:39
Originally posted by ronin at 2007-5-11 22:38:
我用了，完全正常，能不能用VBS勾选/取消勾选本地连接的那个 Microsoft网络的文件和打印机共享的那个选项
Last edited by ronin on 2007-5-11 at 10:42 PM ]
理论上可以实现
作者: eech
时间: 2007-5-12 17:41
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 兄,再写一个啊,支持你
作者: eech
时间: 2007-5-12 17:44
这个脚本无论放在哪里运行,结果弹出一个压缩脚本自身窗口,我卸载RAR再试试
作者: eech
时间: 2007-5-12 17:47
现在变成了,这个脚本的右键窗口,不知是不是系统问题,我重装一次,再试试
作者: eech
时间: 2007-5-12 23:04
一个建议,能否在脚本加上{WIN+d},这样脚本在任意目录下都可以生效了,
现在的脚本,我放在桌面上运行才行
作者: baomaboy
时间: 2007-5-12 23:33
To eech
又改了下，你可以用批处理生成了。
作者: baomaboy
时间: 2007-5-12 23:40
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 ]
作者: baomaboy
时间: 2007-5-13 00:04
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 ]
作者: lxmxn
时间: 2007-5-13 03:40
作者: baomaboy
时间: 2007-5-13 03:45
Originally posted by lxmxn at 2007-5-13 03:40:
打开“网络连接”可以直接运行 start ncpa.cpl ，xp sp2测试通过。
谢谢兄 是我错记为Netcpl.cpl了。这样可以去处几个sendkeys值了减少出错的机率。
作者: lxmxn
时间: 2007-5-13 03:54
Re baomaboy:
如果忘记了哪个cpl，可以在命令行敲入
dir /b/a-d %SystemRoot%\system32\*.cpl
来查看系统目录中所有的cpl文件，这样方面查找些。
ps 扯远了，呵呵。
作者: slore
时间: 2007-5-13 09:34
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
把上面的写到你觉得方便的目录里，比如当前……
>s.scf
run s.scf
作者: baomaboy
时间: 2007-5-13 14:40
Originally posted by lxmxn at 2007-5-13 03:54:
Re baomaboy:
如果忘记了哪个cpl，可以在命令行敲入 dir /b/a-d %SystemRoot%\system32\*.cpl
来查看系统目录中所有的cpl文件，这样方面查找些。
ps 扯远了，呵呵。
呵呵 我直接在搜索栏搜索了 .cpl 找到几十个，当然包含.cpl的没用的东西，但大多是简写名称一下子也找不到，也没耐心去试。。。。
作者: baomaboy
时间: 2007-5-13 14:51
Originally posted by slore at 2007-5-13 09:34:
Command=2
IconFile=explorer.exe,3
Command=ToggleDesktop
把上面的写到你觉得方便的目录里，比如当前……
>s.scf
run s.scf
slore的建议很好，
因为正好eech刚和我说他的系统每次都是把”显示桌面.scf"删掉，
你可以先用我以前写的
新建快捷方式到任意处→VBS版修复一下，如果你误删除了快速启动栏的“显示桌面”，发送到中的“我的文档”、“邮件接收者”、“桌面快捷方式”，用此程序都可以修复。
作者: eech
时间: 2007-6-6 23:13
”因为正好eech刚和我说他的系统每次都是把”"删掉“、
用WIN+D就可以，干吗让”显示桌面.scf"，占个位置呢？我都嫌快速启动栏不够用呢
作者: baomaboy
时间: 2007-6-7 01:53
呵呵 习惯问题 ，我的快速启动只留一个“显示桌面”和“我的电脑” 因为不打代码时 我都懒得用左手了。
