求为大量绿色软件建立桌面快捷方式的批处理（已解决）

monitor20

中英文系统通吃，XP、Windows7通吃，第一次运行会自动创建配置文件，配置文件如下：

[程序设置]
;程序运行设置，所有路径均不需要引号，下同
创建位置=开始菜单
;可填“桌面”、“开始菜单”，默认为“桌面”，填其他的没用哦！
[快捷方式]
;如果不够用，自己再编辑，格式如下
;程序n=路径
;名称n=自定义名称
;总数大些没啥，少了快捷方式会缺下！
;这是个例子
;程序1=TOOLS\QQ\QQ.exe
;名称1=腾讯QQ
;其中，“TOOLS\QQ\QQ.exe”代表 “<程序所在盘符>:\TOOLS\QQ\QQ.exe” ，无需填入盘符号的！
;所以说，程序可以放置在任意目录，不一定要在根目录下！

总数=100
程序1=
名称1=
程序2=
名称2=
程序3=
名称3=


可能会被360卡住，纯属误报，放心使用！

AutoIt3源码如下（没什么高明之处，放出来吧）：

TraySetClick(0)
If FileExists(@ScriptDir & "\设置.INI") = 0 Then
FileInstall(".\设置.INI", @ScriptDir & "\设置.INI")
MsgBox(0, "程序初始化", "配置文件创建完毕，请设置好后运行程序 ！", 5)
Exit
Else
$LinkDir = IniRead(@ScriptDir & "\设置.INI", "程序设置", "创建位置", "桌面")
$LinkNumber = IniRead(@ScriptDir & "\设置.INI", "快捷方式", "总数", "0")
If $LinkNumber = 0 Then
  MsgBox(0, "出现小错误", "快捷方式总数为0，程序操作结束 ！", 5)
  Exit
Else
  If $LinkDir = "开始菜单" Then
   DirCreate(@ProgramsCommonDir & "\快捷方式")
   $LinkDir = @ProgramsCommonDir & "\快捷方式"
  Else
   $LinkDir = @DesktopCommonDir
  EndIf
  $CurDrive = StringLeft(@ScriptDir, 2)
  For $i = 1 To $LinkNumber
   $Exec = $CurDrive & "\" & IniRead(@ScriptDir & "\设置.INI", "快捷方式", "程序" & $i, "")
   $Link = $LinkDir & "\" & IniRead(@ScriptDir & "\设置.INI", "快捷方式", "名称" & $i, "") & ".lnk"
   $j = StringInStr($Exec, "\", 0, -1)
   $Exec_Dir = StringLeft($Exec, $j - 1)
   FileCreateShortcut($Exec, $Link, $Exec_Dir)
  Next
  MsgBox(0, "执行完毕", "快捷方式创建完毕，程序操作结束 ！", 3)
  Exit
EndIf
EndIf


本来还想加入快捷方式卸载功能，时间紧张，然后弄吧！

AutoIt3最新中文版下载地址：

http://www.autoitx.com/thread-12964-1-1.html?sid=glvQ22

自己下载研究吧，帮助文件超详细，比批处理、VBS功能都强！

[ 本帖最后由 monitor20 于 2012-4-10 19:23 编辑 ]

极度凶残

原帖由 monitor20 于 2012-4-10 14:02 发表
中英文系统通吃，XP、Windows7通吃，第一次运行会自动创建配置文件，配置文件如下：

[程序设置]
;程序运行设置，所有路径均不需要引号，下同
创建位置=开始菜单
;可填“桌面”、“开始菜单”，默认为“桌 ...

刚刚用了一下，非常不错，那个AutoShortcut.exe要是有个漂亮的图标就完美了，还有快捷方式卸载功能那就天下无敌了，还有个问题，假如有一天因快捷方式太多，我想创建到桌面一个叫“绿色软件”的文件夹里，照您的说明，应该不行是吧？

[ 本帖最后由 极度凶残 于 2012-4-10 14:31 编辑 ]

monitor20

完全可以!我然后再改下程序。(中午时间紧,本来设想的许多功能来不及实现,比如配置向导,程序文件搜索,命令行参数支持,快捷方式描述,等等!匆忙发布,后期将不断加强其功能,提高其应用范围。图标是我在编译的时候随便找的,你可以用源代码重新编译一下,选一个好看的图标!)

[ 本帖最后由 monitor20 于 2012-4-10 15:33 编辑 ]

极度凶残

原帖由 monitor20 于 2012-4-10 14:42 发表
完全可以!我然后再改下程序。(中午时间紧,本来设想的许多功能来不及实现,比如配置向导,程序文件搜索,命令行参数支持,快捷方式描述,等等!匆忙发布,后期将不断加强其功能,提高其应用范围。图标是我在编译的时候随 ...

您的我看不到图标啊





用您的源代码重新编译的话，第一次运行创建配置文件正常，修改配置文件后再运行出错




[ 本帖最后由 极度凶残 于 2012-4-10 15:48 编辑 ]

monitor20

你把你的脚本文件传上来我看下,另外,脚本目录要包含一份有效的配置文件!最好把错误截图也发上来^_^(理解程序后,你可以自己修改内容)

极度凶残

原帖由 monitor20 于 2012-4-10 16:35 发表
你把你的脚本文件传上来我看下,另外,脚本目录要包含一份有效的配置文件!最好把错误截图也发上来^_^(理解程序后,你可以自己修改内容)

我没做任何改动，只把你的代码粘贴上去编译为EXE就这样
只要总数为非0就会出现错误界面


创建快捷方式.rar (330.59 KB, 下载次数: 20)

2012-4-10 17:11 上传

点击文件名下载附件
下载积分: 无忧币 -2

[ 本帖最后由 极度凶残 于 2012-4-10 17:11 编辑 ]

monitor20

已更正，原帖代码被论坛程序的URL识别给改了，所以出错……
还发在61楼，内容（包括配置文件）已更新！

极度凶残

原帖由 monitor20 于 2012-4-10 19:25 发表
已更正，原帖代码被论坛程序的URL识别给改了，所以出错……
还发在61楼，内容（包括配置文件）已更新！

嗯！这回可以了，非常感谢！

hhh333

我还提供一个思路，就是用pecmd的内嵌脚本来做，这个就只要一个文件就解决了。

monitor20

原帖由 极度凶残 于 2012-4-10 20:46 发表


嗯！这回可以了，非常感谢！

提示内容、快捷方式目录,一切的一切都可以DIY,另外,我提供的编译版本的图标是一个快捷方式箭头图标,并非没有图标哦 ^_^

hero8000

为什么不用音速启动呢，完全达到这个要求，自己创建所需要的文件快捷方式，用的是相对路径，不存在不同盘符的问题，每次只手动运行音速启动即可找到所有自己创建的快捷方式，支持拖动分类，非常方便。

图中显示的是相对路径。


xp win7/32 肯定可用。手头没有win7/64，没法测试。

[ 本帖最后由 hero8000 于 2012-4-11 09:46 编辑 ]

fyqingshan

呵呵，来晚了，这个小工具我早做了
http://bbs.wuyou.net/forum.php?m ... p;extra=&page=1
不知道合不合适？