按指定位置排列桌面图标

软件大小：12 KB
更新日期：2009-07-05
软件语言：简体中文
软件类别：网吧工具
软件授权：共享软件
软件官网：未知
适用平台：Win2003, WinXP, Win2000, NT, WinME
软件厂商：

10.0分

50% 50%

本地下载文件大小：12 KB 高速下载需下载高速下载器，提速50%

软件介绍人气软件相关文章网友评论下载地址

为您推荐：网吧工具

因需要，今天弄了个小玩意。自动排列图标

程序说明：
如果：当前目录下有seticon.ini配置文件
那么：按配置文件排列图标
否则：记录当前桌面图标的排列信息，生成配置文件seticon.ini

小提示：生成记录文件的时候最好别把程序放在桌面运行。

请把‘自动排列图标去掉’做盘的朋友没去掉可以用以下这个VBS搞定，网上找来的，方法比较笨

'''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("[Shell]"&vbcrlf&"Command=2"&vbcrlf&"IconFile=explorer.exe,3"&vbcrlf&"[Taskbar]"&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