VB6技术问询：强制加载本地DLL及同服务器多部署差异化实现

我刚好处理过几乎一模一样的VB6部署场景，给你梳理下实操性强的解决方案，分两部分解决你的问题：

1. 代码维护策略（减少重复工作量） #

如果修改版只是少量代码差异，强烈推荐用条件编译，不用维护两个独立工程：

• 打开基础版工程，进入【工程】→【工程属性】→【编译】标签，“条件编译参数”留空（对应基础版）。
• 复制一份基础工程文件（比如重命名为YourApp_VB.vbp），打开这个复制的工程，同样进入【编译】标签，添加条件编译参数：VERSION_B=1。
• 在代码有差异的地方，用条件编译指令区分：

  #If VERSION_B Then
      Public Function WeirdMath(Num1 As Double, Num2 As Double) As Double
          WeirdMath = Num1 * Num2 ' 修改版的逻辑
      End Function
  #Else
      Public Function WeirdMath(Num1 As Double, Num2 As Double) As Double
          WeirdMath = Num1 + Num2 ' 基础版的逻辑
      End Function
  #End If
  

• 编译时，分别打开两个工程，设置不同的输出目录：【工程】→【工程属性】→【生成】，把基础版输出到文件夹A，修改版输出到文件夹B，各自生成独立的exe和依赖DLL。

2. 完全独立部署 #

两个文件夹要包含应用运行所需的所有文件：exe、本地DLL、资源文件等，绝对不要共享文件，避免版本覆盖或加载错误。

针对你提到的Project2类工程（ActiveX DLL），这里提供两种靠谱的方法：

方法1：使用Manifest文件（推荐，适合ActiveX DLL） #

这是Windows官方推荐的“免注册COM”方式，能让应用优先加载本地目录的DLL，完全忽略注册表中的注册项：

1. 生成Manifest文件：
   • 先获取Project2.Class1的CLSID：可以用OLEView工具打开编译好的Project2.dll，找到Class1对应的CLSID；或者如果之前注册过，在注册表HKEY_CLASSES_ROOT\CLSID里搜索“Class1”找到对应的ID。
   • 创建一个和主应用exe同名的manifest文件，比如YourApp.exe.manifest，放在exe同目录下，内容如下：

     <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
     <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
       <assemblyIdentity 
         type="win32" 
         name="YourApp" 
         version="1.0.0.0" 
         processorArchitecture="x86"/>
       <!-- 声明本地的ActiveX DLL -->
       <file name="Project2.dll">
         <comClass 
           clsid="这里替换成你的Class1的CLSID" 
           description="自定义数学函数类"/>
       </file>
     </assembly>
     

2. 测试验证：
   • 先把系统中已注册的Project2.dll取消注册：打开命令提示符，输入regsvr32 /u "已注册的DLL路径"。
   • 运行文件夹A和B里的应用，分别调用WeirdMath函数，验证是否加载了本地的DLL（比如两个版本的函数逻辑不同，看输出结果是否符合预期）。

方法2：动态加载DLL（适合标准导出DLL） #

如果你的DLL是标准Win32 DLL（而非ActiveX），可以用Windows API动态加载本地DLL，完全绕开注册表：

1. 首先要确保Project2.dll导出了WeirdMath函数（VB6默认编译的ActiveX DLL不导出普通函数，需要借助第三方工具比如VB6 Export或者改用C++编译标准DLL）。
2. 在VB6主应用中添加API声明和调用代码：

   Option Explicit
   Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
   Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
   Private Declare Function FreeLibrary Lib "kernel32" (ByVal hModule As Long) As Long
   ' 声明DLL中的函数
   Private Declare Function WeirdMath Lib "Project2.dll" (ByVal Num1 As Double, ByVal Num2 As Double) As Double
   
   Private Sub Form_Load()
       ' 加载本地目录下的DLL
       Dim hDllHandle As Long
       hDllHandle = LoadLibrary(App.Path & "\Project2.dll")
       
       If hDllHandle = 0 Then
           MsgBox "无法加载本地DLL，请检查文件是否存在！", vbCritical
           Unload Me
           Exit Sub
       End If
       
       ' 测试调用函数
       Dim calcResult As Double
       calcResult = WeirdMath(5, 3)
       MsgBox "计算结果：" & calcResult, vbInformation
       
       ' 程序退出前释放DLL（可选，系统会自动回收）
       FreeLibrary hDllHandle
   End Sub
   

1. 分别编译基础版到文件夹A，修改版到文件夹B，各自放入对应的Project2.dll和manifest文件（如果用方法1）。
2. 取消系统中已注册的Project2.dll。
3. 分别运行两个文件夹里的应用，验证功能是否符合各自版本的逻辑，且不会互相干扰。

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