|
|
中英文系统通吃，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 编辑 ] |
|
IP卡
狗仔卡
发表于 2012-4-9 23:01:18
显身卡
