VB.NET桌面应用MSI安装时获取数据库连接信息的方案咨询

需求可行性 #

完全可行，但需要明确：无法直接将用户输入作为编译后的应用常量（编译后常量不可修改），实际是在安装阶段收集配置信息并安全存储，应用启动时读取这些固定配置，达到“安装后无需配置文件即可使用”的效果。

具体实现步骤 #

1. 添加自定义安装类 #

在VB.NET项目中添加Installer Class（右键项目→添加→新建项→搜索“安装程序类”），重写Install方法处理安装参数：

Imports System.Configuration.Install
Imports System.Security.Cryptography
Imports Microsoft.Win32

Public Class CustomInstaller
    Inherits Installer

    Public Overrides Sub Install(savedState As System.Collections.IDictionary)
        MyBase.Install(savedState)

        ' 获取安装时用户输入的参数
        Dim dbUser As String = Me.Context.Parameters("DBUser")
        Dim dbPwd As String = Me.Context.Parameters("DBPassword")
        Dim dbName As String = Me.Context.Parameters("DBName")

        ' 用DPAPI加密密码（本地机器范围）
        Dim encryptedPwd As Byte() = ProtectedData.Protect(Encoding.UTF8.GetBytes(dbPwd), Nothing, DataProtectionScope.LocalMachine)

        ' 将配置写入注册表（需管理员权限）
        Using regKey As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\YourAppName\Settings")
            regKey.SetValue("DBUser", dbUser)
            regKey.SetValue("DBPassword", Convert.ToBase64String(encryptedPwd))
            regKey.SetValue("DBName", dbName)
        End Using
    End Sub
End Class

2. 配置安装项目的自定义对话框 #

如果使用Visual Studio安装项目（Setup Project）：

• 打开安装项目的“用户界面”编辑器，在“安装”阶段添加“文本框(A)”对话框。
• 设置对话框提示文本，比如“请输入数据库用户名”“请输入数据库密码”“请输入数据库名称”。
• 将文本框的Property属性分别设为DBUSER、DBPASSWORD、DBNAME（对应安装类中读取的参数名）。

3. 应用程序读取配置 #

在应用启动时，从注册表读取并解密配置，构建连接字符串：

Imports System.Security.Cryptography
Imports Microsoft.Win32

Public Class MainForm
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Using regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\YourAppName\Settings")
            If regKey IsNot Nothing Then
                Dim dbUser As String = regKey.GetValue("DBUser").ToString()
                Dim encryptedPwd As String = regKey.GetValue("DBPassword").ToString()
                Dim dbName As String = regKey.GetValue("DBName").ToString()

                ' 解密密码
                Dim decryptedPwd As String = Encoding.UTF8.GetString(ProtectedData.Unprotect(Convert.FromBase64String(encryptedPwd), Nothing, DataProtectionScope.LocalMachine))

                ' 构建数据库连接字符串
                Dim connString As String = $"Server=.;Database={dbName};User ID={dbUser};Password={decryptedPwd};"
                ' 后续使用连接字符串操作数据库
            End If
        End Using
    End Sub
End Class

更优实现方案 #

1. 加密配置文件替代注册表 #

安装时生成加密的本地配置文件（而非写入注册表），既避免注册表权限问题，又比明文配置文件安全：

• 安装阶段将用户输入的配置加密后写入app.config自定义节点或单独的加密配置文件。
• 应用启动时读取并解密该文件。

2. 使用Windows凭据管理器存储密码 #

将敏感的数据库密码存储到Windows凭据管理器，用户名和数据库名存注册表或加密文件：

• 安装时调用凭据管理器API添加凭据，应用启动时读取凭据获取密码，无需手动加密。

3. 提供独立配置工具 #

为管理员提供单独的配置工具，无需重装应用即可修改数据库连接信息：

• 工具读取现有配置，允许用户修改后重新加密存储，比依赖安装程序更灵活。

内容的提问来源于stack exchange，提问作者Coulson