标题: 桌面图标自动排列→勾选/取消勾选→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
呵呵 习惯问题 ,我的快速启动只留一个“显示桌面”和“我的电脑” 因为不打代码时 我都懒得用左手了。