vb6.0程序在Windows10/Windows11上运行必要的环境文件

vb6.0程序在Windows10上运行时，会出现跟多问题，我们需要在windows10系统中安装vb6.0所需要的环境插件。

文件列表：

• MSCOMCTL.OCX 安装vb6.0以及运行vb6编译的程序所必须的。
• MSCOMM32.OCX 安装vb6.0程序所必须的。
• MSCOMM32.DEP 安装vb6.0程序所必须的。
• MSCOMM.SRG 安装vb6.0程序所必须的。
• DAO350.DLL 安装vb6.0以及运行vb6编译的程序所必须的。
• msdia80.dll 安装vb6.0以及运行vb6编译的程序所必须的。

我们在安装这些插件的时候，由于windows系统有32位和64位，所以安装的目录有所不同：

在Windows 32位系统中我们要把插件复制到windows\system32\目录下(cmd执行复制命令):

• Copy /y MSCOMCTL.OCX %windir%\system32\
• Copy /y MSCOMM32.OCX %windir%\system32\
• Copy /y DAO350.DLL %windir%\system32\
• Copy /y msdia80.dll %windir%\system32\

在Windows 64位系统中我们要把插件复制到windows\SysWOW64\目录下(cmd执行复制命令)：

• Copy /y MSCOMCTL.OCX %windir%\SysWOW64\
• Copy /y MSCOMM32.OCX %windir%\SysWOW64\
• Copy /y DAO350.DLL %windir%\SysWOW64\
• Copy /y msdia80.dll %windir%\SysWOW64\

使用windows批处理判断系统是否为32位还是64位：

if "%PROCESSOR_ARCHITECTURE%"=="x86" goto x86
if "%PROCESSOR_ARCHITECTURE%"=="AMD64" goto x64

我们使用windows命令分别注册以上插件：

regsvr32 MSCOMCTL.OCX
regsvr32 MSCOMM32.OCX
regsvr32 DAO350.DLL
regsvr32 msdia80.dll

windows执行需要管理员权限。

批处理bat完整代码如下：

@echo off
if "%PROCESSOR_ARCHITECTURE%"=="x86" goto x86
if "%PROCESSOR_ARCHITECTURE%"=="AMD64" goto x64

:x86
cd %~dp0
Copy /y MSCOMCTL.OCX %windir%\system32\
cd %windir%\system32\
regsvr32 MSCOMCTL.OCX

cd %~dp0
Copy /y msdia80.dll %windir%\system32\
cd %windir%\system32\
regsvr32 msdia80.dll

cd %~dp0
Copy /y DAO350.DLL %windir%\system32\
cd %windir%\system32\
regsvr32 DAO350.DLL

cd %~dp0
Copy /y MSCOMM32.OCX %windir%\system32\
Copy /y MSCOMM32.DEP %windir%\system32\
Copy /y MSCOMM.SRG %windir%\system32\
cd %windir%\system32\
regsvr32 MSCOMM32.OCX


:x64
cd %~dp0
Copy /y MSCOMCTL.OCX %windir%\SysWOW64\
cd %windir%\SysWOW64\
regsvr32 MSCOMCTL.OCX

cd %~dp0
Copy /y msdia80.dll %windir%\SysWOW64\
cd %windir%\SysWOW64\
regsvr32 msdia80.dll

cd %~dp0
Copy /y DAO350.DLL %windir%\SysWOW64\
cd %windir%\SysWOW64\
regsvr32 DAO350.DLL

cd %~dp0
Copy /y MSCOMM32.OCX %windir%\SysWOW64\
Copy /y MSCOMM32.DEP %windir%\SysWOW64\
Copy /y MSCOMM.SRG %windir%\SysWOW64\
cd %windir%\SysWOW64\
regsvr32 MSCOMM32.OCX