【打包教程】0vertrue/Gu1tar Pro6软件打包技术分享
# 简介
0verture5 和 Gu1tar Pro6 是一款音乐爱好者和编曲者常用的简单的编曲和制谱软件。0verture4/Gu1tar Pro5 版的破解版满天飞，但是 0verture5 版以上和 Gu1tar Pro6 以上却被思杰马克丁公司购买了版权。
那么我们今天来借这个软件了解一下如何进行两款软件的打包。
# 软件截图
# 技术分享
这次主要讲解的是 BAT 文件实现安装包在安装过程中的一些自动部署操作的代码。
不同于一般软件，两个软件的部署过程包含了解压文件，创建多个快捷方式，安装字体，建立文件关联，清理安装时产生的临时文件等操作。
我们借助了 3 个文件来完成这些操作：
Install.vbs
Install.bat
InstallFonts.vbs
代码如下所示：
Install.vbs
1
2
| Set shell = Wscript.createobject("wscript.shell")
a = shell.run ("Install.bat",0)
|
Install.bat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| @echo off
color 4f
title 仅用于打包代码测试
set "exe=GuitarPro.exe"
set "lnk=GuitarPro 6 Lite"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=GP5.exe"
set "lnk=GuitarPro 5"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=吉他谱阅览器.exe"
set "lnk=吉他谱阅览器(收费)"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
assoc .gpx=GuitarPro6Files
assoc .gp5=GuitarProFiles
assoc .gp4=GuitarProFiles
assoc .gp3=GuitarProFiles
assoc .xml=GuitarProFiles
assoc .mid=GuitarProFiles
ftype GuitarPro6Files="%~dp0\GuitarPro.exe" %1
ftype GuitarProFiles="%~dp0\GP5.exe" %1
regedit /s ./Install.reg
start wscript "%~dp0fonts\InstallFonts.vbs"
start /d "%~dp0" vcredist_x86.exe /q
start /d "%~dp0crack\" KeyGen.exe"
del "%~dp0Fonts\InstallFonts.vbs"
del Install.reg
del %
|
InstallFonts.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| @echo off
color 4f
title 仅用于打包代码测试
set "exe=GuitarPro.exe"
set "lnk=GuitarPro 6 Lite"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=GP5.exe"
set "lnk=GuitarPro 5"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
set "exe=吉他谱阅览器.exe"
set "lnk=吉他谱阅览器(收费)"
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")
assoc .gpx=GuitarPro6Files
assoc .gp5=GuitarProFiles
assoc .gp4=GuitarProFiles
assoc .gp3=GuitarProFiles
assoc .xml=GuitarProFiles
assoc .mid=GuitarProFiles
ftype GuitarPro6Files="%~dp0\GuitarPro.exe" %1
ftype GuitarProFiles="%~dp0\GP5.exe" %1
regedit /s ./Install.reg
start wscript "%~dp0fonts\InstallFonts.vbs"
start /d "%~dp0" vcredist_x86.exe /q
start /d "%~dp0crack\" KeyGen.exe"
del "%~dp0Fonts\InstallFonts.vbs"
del Install.reg
del %
|
安装过程中，Install.vbs 启动 Install.bat 实现窗口隐藏，然后在 Install.bat 中实现创建图标、关联文件、调用 InstallFonts 安装字体、清理安装时产生的临时文件。
软件打包使用的是兮米安装包制作工具。
在本版本打包过程中，还集成了 0verture5/Gu1tar Pro 6 的汉化补丁。
# 注意事项
本软件仅供学习交流软件打包代码使用，请于下载后 24 小时或学习交流结束后删除。
由于初琴使用的打包工具的 BUG，不能在卸载时自动清理注册表，所以推荐卸载后使用 Wise Care 365 清理注册表。
# 下载地址
0verture 5：蓝奏云
Gu1tar Pro 6 x86：蓝奏云
Gu1tar Pro 6 x64：蓝奏云
