Visual Basic安装程序制作技巧

一、Visual Basic 安装程序制作基础

在 Visual Basic 开发中，将应用程序打包成安装程序是发布软件的重要环节。制作安装程序不仅能方便用户安装软件，还能确保软件运行所需的环境和依赖项被正确配置。

（一）安装程序制作工具的选择

1. Package & Deployment 向导：这是 Visual Basic 自带的安装程序制作工具，对于简单的应用程序，它提供了基本的打包功能。使用 Package & Deployment 向导可以轻松创建标准的安装包，包括设置安装目录、添加文件、创建快捷方式等。

示例步骤：

• 打开 Visual Basic 项目，选择“外接程序”菜单中的“Package & Deployment 向导”。
• 按照向导提示，选择要打包的项目类型（如标准 EXE）。
• 在“打包”步骤中，设置打包类型，如“标准安装包”。
• 接着指定安装文件的存放位置，选择需要包含在安装包中的文件，包括可执行文件、相关的 DLL 文件等。
• 在“安装位置”设置中，确定文件安装到目标计算机的具体路径，例如“Program Files\MyApp”。
• 最后可以设置快捷方式，让用户在安装后能方便地启动应用程序。

2. InstallShield：这是一款功能强大且广泛使用的专业安装程序制作工具。它提供了丰富的功能，如自定义安装界面、安装过程脚本编写、系统配置检测等。对于复杂的应用程序，尤其是需要高度定制安装过程的项目，InstallShield 是一个很好的选择。

例如，在 InstallShield 中，可以通过图形化界面设计安装向导的各个页面，包括欢迎页面、许可协议页面、安装目录选择页面等。同时，可以编写脚本代码来执行一些复杂的操作，如安装前检查系统是否安装了特定版本的.NET Framework，如果未安装则提示用户下载安装。

3. WiX Toolset：WiX（Windows Installer XML）是一个开源的工具集，用于创建 Windows Installer 安装包。它基于 XML 格式来定义安装包的内容和行为，具有高度的灵活性和可扩展性。对于熟悉 XML 并且希望对安装过程有精确控制的开发者，WiX 是个不错的选择。

例如，通过编写 WiX 的 XML 源文件，可以详细定义组件、功能、目录结构等。以下是一个简单的 WiX 源文件示例，用于创建一个基本的安装包：

<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi">
  <Product Id="*" Name="MyVBApp" Language="1033" Version="1.0.0" Manufacturer="MyCompany" UpgradeCode="{12345678 - 1234 - 1234 - 1234 - 123456789012}">
    <Package InstallerVersion="200" Compressed="yes" InstallScope="perMachine" />

    <MajorUpgrade DowngradeErrorMessage="A newer version of [ProductName] is already installed." />
    <MediaTemplate />

    <Feature Id="ProductFeature" Title="MyVBApp" Level="1">
      <ComponentGroupRef Id="ProductComponents" />
    </Feature>
  </Product>

  <Fragment>
    <Directory Id="TARGETDIR" Name="SourceDir">
      <Directory Id="ProgramFilesFolder">
        <Directory Id="INSTALLFOLDER" Name="MyVBApp">
          <Component Id="ProductComponent" Guid="{12345678 - 1234 - 1234 - 1234 - 123456789013}">
            <File Id="MyVBApp.exe" Source="$(var.MyVBApp.TargetDir)\MyVBApp.exe" KeyPath="yes" />
          </Component>
        </Directory>
      </Directory>
    </Directory>
  </Fragment>

  <Fragment>
    <ComponentGroup Id="ProductComponents" Directory="INSTALLFOLDER">
      <ComponentRef Id="ProductComponent" />
    </ComponentGroup>
  </Fragment>
</Wix>

（二）理解安装程序的基本结构

1. 文件集合：安装程序需要包含应用程序运行所需的所有文件，这包括可执行文件（.exe）、动态链接库文件（.dll）、配置文件（.ini、.xml 等）、资源文件（如图片、音频、视频等）。例如，一个使用了数据库连接的 Visual Basic 应用程序，除了可执行文件外，还需要包含数据库驱动的 DLL 文件以及数据库连接字符串配置文件。

2. 目录结构：合理规划安装目录结构对于应用程序的管理和维护很重要。通常，可执行文件会安装在主安装目录下，而相关的支持文件（如 DLL 文件）可以放在子目录中，例如“Bin”目录。配置文件可以放在“Config”目录，资源文件可以根据类型分别放在不同的目录，如“Images”“Sounds”等。

3. 快捷方式：为了方便用户启动应用程序，安装程序通常会在桌面、开始菜单等位置创建快捷方式。在创建快捷方式时，需要指定正确的目标路径（即应用程序的可执行文件路径）和工作目录（通常为应用程序的安装目录）。例如，在 Package & Deployment 向导中创建桌面快捷方式的代码片段（以 VB 脚本形式存在于安装包内部逻辑中）：

Set WshShell = CreateObject("WScript.Shell")
DesktopPath = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(DesktopPath & "\MyVBApp.lnk")
oShellLink.TargetPath = "C:\Program Files\MyVBApp\MyVBApp.exe"
oShellLink.WorkingDirectory = "C:\Program Files\MyVBApp"
oShellLink.Save

二、自定义安装界面设计

（一）使用 Package & Deployment 向导自定义界面

1. 基本界面设置：Package & Deployment 向导虽然功能相对基础，但也提供了一定程度的界面自定义。在创建安装包过程中，可以设置安装程序的标题、版权信息等。这些信息会显示在安装向导的欢迎页面等位置。例如，在向导的相关设置步骤中，输入公司名称、应用程序名称等信息，这些信息会在安装界面上呈现。

2. 添加自定义页面（有限方式）：通过一些技巧，可以在 Package & Deployment 向导生成的安装程序中添加简单的自定义页面。一种方法是利用安装程序的自定义脚本功能。在安装脚本中，可以添加代码来显示一个自定义的对话框。

示例代码（使用 VBScript 嵌入到安装脚本中）：

Function ShowCustomDialog()
  Dim dlg
  Set dlg = CreateObject("MSComDlg.CommonDialog")
  dlg.DialogTitle = "自定义对话框"
  dlg.Prompt = "请输入一些信息"
  dlg.ShowInput
  If dlg.Value <> "" Then
    '在这里可以处理用户输入的信息，比如保存到配置文件等
  End If
  Set dlg = Nothing
End Function

然后在安装脚本的合适位置调用 ShowCustomDialog 函数，即可在安装过程中显示自定义对话框。

（二）使用 InstallShield 设计丰富的自定义界面

1. 界面布局设计：InstallShield 提供了直观的图形化界面设计工具。可以通过拖放操作添加各种控件到安装界面的不同页面，如文本框、按钮、单选框、复选框等。例如，在安装目录选择页面，可以添加一个文本框让用户手动输入安装目录，同时提供一个“浏览”按钮方便用户选择目录。

2. 页面导航和逻辑控制：可以定义不同页面之间的导航逻辑。比如，在许可协议页面，如果用户不接受协议，则阻止进入下一步安装；在自定义安装页面，根据用户选择的组件来决定后续页面显示的内容。这可以通过编写 InstallScript 代码来实现。

示例代码（InstallScript 语言）：

function OnFirstUIPage()
begin
  if (NOT IsDlgButtonChecked(SHEET1, IDC_ACCEPT)) then
  begin
    MessageBox("请接受许可协议才能继续安装。", SEVERE);
    return BACK;
  end;
end;

上述代码在许可协议页面检查用户是否勾选了接受协议的复选框，如果未勾选，则弹出提示框并阻止用户进入下一步。

（三）WiX Toolset 自定义界面开发

1. 基于 XML 的界面定义：WiX 使用 XML 来定义安装界面。通过编写一系列的 XML 元素，可以创建各种安装页面。例如，以下 XML 代码片段用于创建一个简单的欢迎页面：

<UI>
  <Dialog Id="WelcomeDlg" Width="370" Height="270" Title="[ProductName] 安装程序">
    <Control Id="Text1" Type="Text" X="25" Y="25" Width="320" Height="15" Transparent="yes" NoPrefix="yes">
      <Text>欢迎使用 [ProductName] 安装程序。</Text>
    </Control>
    <Control Id="Next" Type="PushButton" X="236" Y="243" Width="56" Height="17" Default="yes" Text="下一步">
      <Publish Event="NewDialog" Value="VerifyReadyDlg">1</Publish>
    </Control>
    <Control Id="Cancel" Type="PushButton" X="304" Y="243" Width="56" Height="17" Cancel="yes" Text="取消">
      <Publish Event="SpawnDialog" Value="CancelDlg">1</Publish>
    </Control>
  </Dialog>
</UI>

2. 集成自定义控件和逻辑：WiX 支持集成自定义的 Windows 控件和自定义逻辑。可以通过编写自定义操作（Custom Action）来实现复杂的功能，如在安装前检查系统环境变量、在安装后启动应用程序等。自定义操作可以用多种语言编写，如 C++、C# 等，然后通过 WiX 的 XML 配置集成到安装程序中。

三、安装过程中的系统配置与依赖处理

（一）注册表操作

1. 读取和写入注册表：在安装过程中，应用程序可能需要在注册表中创建键值对来存储配置信息。例如，存储应用程序的安装路径、用户设置等。在 Visual Basic 中，可以使用 Microsoft.Win32.Registry 类来操作注册表。

示例代码：

Imports Microsoft.Win32

Public Class Form1
  Private Sub SaveSettingsToRegistry()
    Dim key As RegistryKey
    key = Registry.CurrentUser.CreateSubKey("Software\MyCompany\MyVBApp")
    key.SetValue("InstallPath", Application.StartupPath)
    key.SetValue("UserPreference", "SomeValue")
    key.Close()
  End Sub

  Private Sub LoadSettingsFromRegistry()
    Dim key As RegistryKey
    key = Registry.CurrentUser.OpenSubKey("Software\MyCompany\MyVBApp")
    If key IsNot Nothing Then
      Dim installPath As String = key.GetValue("InstallPath").ToString()
      Dim userPreference As String = key.GetValue("UserPreference").ToString()
      '在这里可以根据读取到的设置进行相应操作
      key.Close()
    End If
  End Sub
End Class

在安装程序制作中，也可以通过安装工具提供的功能来执行注册表操作。例如，在 InstallShield 中，可以在安装脚本中使用 RegDBSetKeyValueEx 函数来写入注册表值：

function WriteRegistryValue()
begin
  RegDBSetKeyValueEx(HKEY_CURRENT_USER, "Software\MyCompany\MyVBApp", "InstallPath", REGDB_STRING, "C:\Program Files\MyVBApp", -1);
end;

2. 卸载时清理注册表：当用户卸载应用程序时，需要清理在安装过程中写入注册表的相关键值对。在 Visual Basic 应用程序中，可以在卸载程序的代码中添加相应的注册表删除操作。

示例代码：

Imports Microsoft.Win32

Public Class UninstallForm
  Private Sub UninstallRegistrySettings()
    Dim key As RegistryKey
    key = Registry.CurrentUser.OpenSubKey("Software\MyCompany\MyVBApp", True)
    If key IsNot Nothing Then
      key.DeleteSubKeyTree("Software\MyCompany\MyVBApp")
      key.Close()
    End If
  End Sub
End Class

（二）环境变量配置

1. 添加或修改环境变量：有些应用程序需要将其安装目录添加到系统环境变量 PATH 中，以便在命令行中可以直接调用应用程序的可执行文件。在 Visual Basic 中，可以通过修改系统环境变量的相关注册表项来实现。

示例代码：

Imports Microsoft.Win32

Public Class Form1
  Private Sub AddPathToEnvironmentVariable()
    Dim pathValue As String
    Dim key As RegistryKey
    key = Registry.LocalMachine.OpenSubKey("System\CurrentControlSet\Control\Session Manager\Environment", True)
    pathValue = key.GetValue("PATH").ToString()
    pathValue = pathValue & ";" & Application.StartupPath
    key.SetValue("PATH", pathValue)
    key.Close()
  End Sub
End Class

在安装工具中，也有相应的功能来处理环境变量配置。例如，WiX 可以通过自定义操作来实现环境变量的修改。以下是一个 WiX 自定义操作的示例代码（用 C# 编写）：

using System;
using System.Collections.Generic;
using System.Text;
using Microsoft.Deployment.WindowsInstaller;

namespace EnvironmentVariableCustomAction
{
  public class CustomActions
  {
    [CustomAction]
    public static ActionResult SetEnvironmentVariable(Session session)
    {
      string installPath = session.CustomActionData["INSTALLFOLDER"];
      string pathVariable = Environment.GetEnvironmentVariable("PATH", EnvironmentVariableTarget.Machine);
      pathVariable = pathVariable + ";" + installPath;
      Environment.SetEnvironmentVariable("PATH", pathVariable, EnvironmentVariableTarget.Machine);
      return ActionResult.Success;
    }
  }
}

然后在 WiX 的 XML 中注册这个自定义操作：

<CustomAction Id="SetEnvironmentVariable" BinaryKey="CustomActionDll" DllEntry="SetEnvironmentVariable" Execute="deferred" Return="check" Impersonate="no" />
<InstallExecuteSequence>
  <Custom Action="SetEnvironmentVariable" After="InstallFinalize"></Custom>
</InstallExecuteSequence>

2. 卸载时还原环境变量：卸载应用程序时，需要将安装过程中对环境变量的修改还原。同样可以通过类似的注册表操作或编程方式来实现。在 Visual Basic 卸载程序中，可以读取安装前的环境变量值并恢复。

示例代码：

Imports Microsoft.Win32

Public Class UninstallForm
  Private Sub RestoreEnvironmentVariable()
    Dim originalPath As String
    Dim key As RegistryKey
    key = Registry.LocalMachine.OpenSubKey("System\CurrentControlSet\Control\Session Manager\Environment", True)
    originalPath = key.GetValue("PATH").ToString().Replace(";" & Application.StartupPath, "")
    key.SetValue("PATH", originalPath)
    key.Close()
  End Sub
End Class

（三）依赖项安装与检测

1. 检测系统依赖项：应用程序可能依赖于某些系统组件或运行时环境，如.NET Framework、Visual C++ Redistributable 等。在安装程序启动时，需要检测目标计算机是否已经安装了这些依赖项。在 Visual Basic 中，可以通过检查注册表项或特定文件的存在来判断依赖项是否安装。

示例代码（检测.NET Framework 4.5 是否安装）：

Imports Microsoft.Win32

Public Class Form1
  Private Function IsDotNet45Installed() As Boolean
    Dim key As RegistryKey
    key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full")
    If key IsNot Nothing Then
      Dim releaseValue As Integer = CInt(key.GetValue("Release"))
      If releaseValue >= 378389 Then
        Return True
      End If
    End If
    Return False
  End Function
End Class

在安装工具中，也有专门的功能来检测依赖项。例如，InstallShield 可以通过设置依赖项检测规则来检查系统中是否安装了指定版本的组件。

2. 自动安装依赖项：如果检测到目标计算机缺少应用程序所需的依赖项，安装程序可以提供自动下载和安装依赖项的功能。一种常见的方法是在安装包中包含依赖项的安装文件，然后在安装过程中根据检测结果启动依赖项的安装程序。

例如，在 InstallShield 中，可以设置依赖项的安装逻辑。假设应用程序依赖于 Visual C++ Redistributable 2015，在 InstallShield 中可以添加一个“Prerequisite”，指定 Visual C++ Redistributable 2015 的安装文件路径，并设置安装条件为检测到未安装该组件时执行安装。

四、安装程序的版本控制与升级

（一）版本号管理

1. 在 Visual Basic 项目中设置版本号：在 Visual Basic 项目属性中，可以设置应用程序的版本号。版本号通常采用“主版本号.次版本号.内部版本号.修订号”的格式。例如，“1.0.0.0”。在项目属性的“应用程序”选项卡中，可以直接输入版本号信息。

2. 在安装程序中体现版本号：安装程序也应该显示应用程序的版本号。在使用 Package & Deployment 向导创建的安装包中，版本号会自动从 Visual Basic 项目设置中获取并显示在安装界面的相关位置。在 InstallShield 中，可以通过设置安装包的属性来显示版本号，在 WiX 中，可以在 Product 元素的 Version 属性中指定版本号，这个版本号会在安装过程中显示给用户。

（二）升级机制实现

1. 检测新版本：应用程序可以在启动时检查是否有新版本可用。一种常见的方法是通过访问服务器上的版本信息文件（如 XML 文件或 JSON 文件）来获取最新版本号，并与本地安装的版本号进行比较。

示例代码（使用 WebClient 类在 Visual Basic 中获取服务器版本信息）：

Imports System.Net

Public Class Form1
  Private Function CheckForUpdate() As Boolean
    Dim client As New WebClient()
    Try
      Dim serverVersion As String = client.DownloadString("http://example.com/version.txt")
      Dim localVersion As String = Application.ProductVersion
      If Version.Parse(serverVersion) > Version.Parse(localVersion) Then
        Return True
      End If
    Catch ex As Exception
      '处理网络异常等情况
    Finally
      client.Dispose()
    End Try
    Return False
  End Function
End Class

2. 引导用户升级：如果检测到有新版本，应用程序可以弹出提示框告知用户，并提供下载和安装新版本的链接或按钮。在安装新版本时，需要注意保留用户的配置信息和数据文件。一种方法是在安装新版本前备份用户数据，安装完成后再将备份的数据恢复到新的安装目录中。

例如，在 Visual Basic 应用程序中，可以使用以下代码备份用户配置文件：

Imports System.IO

Public Class Form1
  Private Sub BackupUserSettings()
    Dim sourcePath As String = "C:\Program Files\MyVBApp\config.ini"
    Dim backupPath As String = "C:\Program Files\MyVBApp\config_backup.ini"
    File.Copy(sourcePath, backupPath, True)
  End Sub
End Class

在新版本安装完成后，再将备份的配置文件复制回新的安装目录：

Imports System.IO

Public Class Form1
  Private Sub RestoreUserSettings()
    Dim backupPath As String = "C:\Program Files\MyVBApp\config_backup.ini"
    Dim targetPath As String = "C:\Program Files\NewMyVBApp\config.ini"
    File.Copy(backupPath, targetPath, True)
  End Sub
End Class

五、安装程序的测试与优化

（一）安装程序测试

1. 功能测试：在不同的操作系统环境（如 Windows 7、Windows 10 等）中安装和卸载应用程序，检查安装过程是否顺利，文件是否正确安装到指定目录，快捷方式是否创建成功，注册表和环境变量配置是否正确等。同时，测试应用程序在安装后的运行是否正常，功能是否完整。

2. 兼容性测试：测试安装程序与不同的硬件配置、系统设置的兼容性。例如，在不同的显示器分辨率下安装应用程序，检查安装界面的显示是否正常；在不同的用户权限（管理员权限、普通用户权限）下进行安装和卸载操作，确保安装程序的行为符合预期。

（二）安装程序优化

1. 减小安装包体积：对于包含大量文件的安装包，可以通过压缩文件、删除不必要的文件（如调试信息文件、示例文件等）来减小安装包的体积。在选择安装程序制作工具时，一些工具提供了文件压缩功能，如 WiX 可以设置安装包的压缩属性。

2. 提高安装速度：优化安装过程中的文件复制和配置操作。可以采用多线程技术来加快文件复制速度，合理安排配置操作的顺序，避免不必要的等待时间。例如，在 InstallShield 中，可以通过编写高效的安装脚本，将一些可以并行执行的操作进行并行处理，提高整体安装速度。