Visual Basic 6.0 串口与并口编程实战：从 0x378 物理地址到工业遗产硬件控制

# Visual Basic 6.0 串口与并口编程实战：从 0x378 物理地址到工业遗产硬件控制

*原始记录 ID：12850 (EN) / 19004 (ZH) / 934 (TR)*
*分类：开源与开发者工具 / 复古编程*
*作者：DigiLiner 研究组*

—

## 冷开场：工业车间内永不停歇的钟摆

1999 年秋。在一家汽车零部件冲压车间里，伫立着一台运行 Windows 98 的米白色工控机。机箱后盖上，一条粗重的 25 针并行接口（DB-25）电缆紧固相连，直接引向一套八路继电器控制板及工业光电传感器阵列。CRT 显示器上运行着由 Visual Basic 6.0 编写的工控界面，灰色的按键搭配深蓝色的窗口标题栏。当操作员按下屏幕按键的瞬间，车间内响起清脆的机械动作声：一个写入 0x378 物理地址的单字节数据，瞬间吸合了 5V 继电器线圈，驱动大型液压机开始冲压。

近三十年过去了。软件世界经历了 WebAssembly、容器化集群与人工智能模型的层层迭代。但在全球成千上万的工厂产线、电力调度中心和生化分析设备中，那个 VB6 界面依旧在稳定运作。

原因何在？因为 Visual Basic 6.0 是计算机历史上，将图形界面与底层导线之间的逻辑距离压缩至极致的实用利器。

—

## 1. 黄金时代与 Ring 3 的自由掌控

在 20 世纪 90 年代中期的 MS-DOS 和 Windows 95/98 时代，软件与硬件之间几乎没有任何屏障。系统并未在 CPU 的 Ring 3（用户空间）与 Ring 0（内核空间）之间设立严格的 I/O 隔离。C 语言或 Visual Basic 开发者可以直接借助 x86 架构原生的 `IN` 和 `OUT` 指令，随意向主板上的硬件端口读写数据。

并行打印端口（LPT1）是当时最具实用价值的控制通道。机箱后部的 25 针 D-Sub 母头，直接对外引出了 8 根标准的 TTL 电平（0V 至 5V）数据线。开发者无需烧录单片机固件，也不必开发 USB 专用驱动；只需一行指令，就能点亮外部 LED 或触发电机驱动模块。

—

## 第一转折：Windows NT 保护墙与内核屏障

20 世纪 90 年代末，随着 Windows NT 4.0、Windows 2000 和 Windows XP 的普及，全球数以万计的工业 VB6 程序在一夜之间崩溃停摆。

屏幕上弹出的异常对话框令人印象深刻：
`Privileged Instruction (Exception 0xC0000096)`.

为维护系统安全与多任务稳定性，Windows NT 架构在硬件层面（CPU TSS 任务状态段的 I/O 权限位图 IOPB）严格禁止用户空间（Ring 3）进程执行直接的 `IN` / `OUT` 汇编指令 [1]。一旦普通程序尝试碰触 0x378 地址，x86 处理器立刻触发硬件中断，NT 内核会毫不犹豫地强行终止该进程。

正是在这一关键节点，硬件工程师构筑起了一条精巧的技术桥梁：**`Inpout32.dll`**。

### 打开内核通道：`Inpout32.dll` 驱动架构

`Inpout32.dll` 在用户空间应用程序与 Windows NT 内核之间架设了一个轻量级内核态驱动（`hwinterface.sys`）。VB6 程序只需像调用标准 Windows API 一样调用该动态链接库；库函数则向底层驱动发送 I/O 控制指令（IOCTL），在 Ring 0 特权级下安全完成对物理端口的读写操作 [2]。

—

## 2. 并行端口解构：三大核心硬件寄存器

要精准控制 LPT1 接口，必须深入理解 25 针物理引脚背后的 3 个核心 x86 硬件寄存器：

“`
+————————————————————————-+
| LPT1 并行端口硬件寄存器映射表 |
+——————-+—————-+———–+————————+
| 寄存器名称 | 物理端口地址 | 数据流向 | 对应 DB-25 物理引脚 |
+——————-+—————-+———–+————————+
| 1. 数据寄存器 | 0x378 (&H378) | 输出/输入 | 引脚 2 至 9 (D0 – D7) |
| 2. 状态寄存器 | 0x379 (&H379) | 只读输入 | 引脚 10, 11, 12, 13, 15|
| 3. 控制寄存器 | 0x37A (&H37A) | 可读可写 | 引脚 1, 14, 16, 17 |
+——————-+—————-+———–+————————+
“`

“`
DB-25 并口连接器（母头 / 机箱背板视图）
13 1
o o o o o o o o o o o o o
o o o o o o o o o o o o
25 14
[引脚 2-9：数据线 (D0-D7)] [引脚 18-25：地线 (GND)]
“`

### A. 数据寄存器 (Base + 0 -> 0x378)
8 位主数据通路。向该地址写入 0 至 255 的整数，物理引脚的电平状态将瞬时改变：
– Bit 0 -> 引脚 2 (D0)
– Bit 1 -> 引脚 3 (D1)
– …
– Bit 7 -> 引脚 9 (D7)

### B. 状态寄存器 (Base + 1 -> 0x379)
读取来自外部限位开关、光电传感器等设备的 5 路输入信号：
– Bit 3 (引脚 15: Error 故障)
– Bit 4 (引脚 13: Select In 选择)
– Bit 5 (引脚 12: Paper End 缺纸)
– Bit 6 (引脚 10: ACK 应答)
– Bit 7 (引脚 11: BUSY 忙) -> **注意：硬件电路内部已进行反相（Inverted）处理！**

### C. 控制寄存器 (Base + 2 -> 0x37A)
最初用于向针式打印机发送联机控制指令，包含 4 根输出线：
– Bit 0 (引脚 1: Strobe 选通) -> **硬件反相**
– Bit 1 (引脚 14: Auto Feed 自动换行) -> **硬件反相**
– Bit 2 (引脚 16: Init 复位初始化)
– Bit 3 (引脚 17: Select Printer 联机选择) -> **硬件反相**

—

## 第二转折：硬件反相（Hardware Inversion）的暗坑

初涉并口通信的工程师常会遇到一个极具迷惑性的现象：**对某些引脚写入逻辑 1 时，引脚上的物理电压反而降为 0V！**

在早年 Centronics 打印机标准确立时，部分信号线上直接串联了非门（反相器）硬件芯片：
1. **状态端口的 BUSY 引脚（引脚 11）：** 当外部传感器输入 5V 高电平时，寄存器 Bit 7 读取到的值为 **0**；当外部输入 0V 接地时，Bit 7 读取到的值反而为 **1**！
2. **控制端口的 Strobe、AutoFeed 与 SelectInput 引脚：** 若要使物理引脚输出高电平，必须向寄存器写入 0；写入 1 则输出低电平。

在软件逻辑层中，必须通过异或（`Xor`）位运算对这些引脚的反转特性进行补偿。

—

## 3. 实战工程源码：VB6 并口工业控制模块

以下模块在 Windows XP、7、10 和 11 环境中通过 `Inpout32.dll` 驱动 8 路继电器板并读取传感器状态：

### 模块代码：`modParallelPort.bas`

“`basic
Attribute VB_Name = “modParallelPort”
Option Explicit

‘ Inpout32.dll 底层 API 声明
Public Declare Function Inp32 Lib “inpout32.dll” Alias “Inp32” (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out32 Lib “inpout32.dll” Alias “Out32” (ByVal PortAddress As Integer, ByVal Value As Integer)

‘ 标准 LPT1 硬件地址常量
Public Const LPT1_DATA As Integer = &H378
Public Const LPT1_STATUS As Integer = &H379
Public Const LPT1_CONTROL As Integer = &H37A

‘ 8 路工业继电器输出控制过程
Public Sub SetRelayState(ByVal RelayNumber As Integer, ByVal State As Boolean)
Dim currentVal As Integer
currentVal = Inp32(LPT1_DATA)

If State Then
‘ 将指定通道对应的位设为 1 (位或运算)
currentVal = currentVal Or (2 ^ (RelayNumber – 1))
Else
‘ 将指定通道对应的位设为 0 (位与非运算)
currentVal = currentVal And Not (2 ^ (RelayNumber – 1))
End If

Out32 LPT1_DATA, currentVal
End Sub

‘ 传感器输入读取函数 (已补偿硬件反相逻辑)
Public Function ReadSensor(ByVal PinNumber As Integer) As Boolean
Dim statusVal As Integer
statusVal = Inp32(LPT1_STATUS)

Select Case PinNumber
Case 11 ‘ 引脚 11: BUSY (电路底层已反相)
ReadSensor = ((statusVal And &H80) = 0)
Case 10 ‘ 引脚 10: ACK 应答
ReadSensor = ((statusVal And &H40) <> 0)
Case 12 ‘ 引脚 12: 缺纸状态
ReadSensor = ((statusVal And &H20) <> 0)
Case 13 ‘ 引脚 13: 联机状态
ReadSensor = ((statusVal And &H10) <> 0)
Case 15 ‘ 引脚 15: 故障告警
ReadSensor = ((statusVal And &H8) <> 0)
Case Else
ReadSensor = False
End Select
End Function
“`

—

## 4. RS-232 串口编程：精通 `MSComm32.ocx` 通信机制

并口在短距离多通道输出方面性能优异；但在远距离传输或接入称重仪表、PLC 与条码扫描仪等智能工业设备时，通用标准则是 **RS-232 串口 (COM)**。

Visual Basic 6.0 提供了专用的 `MSComm32.ocx` 控件。其常见的处理模式分为两类：
1. **轮询机制 (Polling)：** 利用 Timer 定时器循环检查 `MSComm1.Input`。此方法耗费 CPU 算力，且极易在高速通信时丢失字节。
2. **事件驱动机制 (Event-Driven)：** 依赖 `OnComm` 事件。一旦串口底层的硬件 UART 接收缓冲区进驻单个字节，Windows 操作系统将自动唤醒此中断过程 [1]。

### 生产级工控窗体代码：中断响应式双向遥测

“`basic
VERSION 5.00
Object = “{648A5603-2C6E-101B-82B6-000000000014}#1.1#0”; “MSCOMM32.OCX”
Begin VB.Form frmSerialControl
Caption = “DigiLiner RS-232 工业遥测工作站”
ClientHeight = 4500
ClientWidth = 6800
Begin MSCommLib.MSComm MSComm1
Left = 240
Top = 240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.TextBox txtLogReceived
Height = 2655
Left = 240
MultiLine = -1 ‘True
ScrollBars = 2 ‘Vertical
Top = 840
Width = 6255
End
Begin VB.CommandButton btnOpenPort
Caption = “打开端口”
Height = 495
Left = 240
Top = 3720
Width = 1455
End
Begin VB.CommandButton btnSendCommand
Caption = “发送查询 (PING)”
Height = 495
Left = 1920
Top = 3720
Width = 2055
End
End

Option Explicit

Private Sub Form_Load()
On Error GoTo ErrorHandler

‘ 配置串口通信基础属性
MSComm1.CommPort = 1 ‘ 绑定 COM1 端口
MSComm1.Settings = “9600,N,8,1” ‘ 9600 波特率, 无校验, 8 数据位, 1 停止位
MSComm1.InputMode = comInputModeText ‘ 文本字符模式（二进制流请使用 comInputModeBinary）

‘ 缓冲区与中断触发阈值
MSComm1.RThreshold = 1 ‘ 接收到每 1 个字节立即激活 OnComm 事件！
MSComm1.SThreshold = 1 ‘ 发送缓冲区为空时发出通知
MSComm1.InputLen = 0 ‘ 单次调用读取接收缓冲区内全部数据

Exit Sub
ErrorHandler:
MsgBox “初始化异常：” & Err.Description, vbCritical
End Sub

Private Sub btnOpenPort_Click()
On Error GoTo ErrorHandler
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
btnOpenPort.Caption = “关闭端口”
txtLogReceived.Text = txtLogReceived.Text & “[信息] COM1 端口已成功打开 (9600-8-N-1)。” & vbCrLf
Else
MSComm1.PortOpen = False
btnOpenPort.Caption = “打开端口”
txtLogReceived.Text = txtLogReceived.Text & “[信息] COM1 端口已关闭。” & vbCrLf
End If
Exit Sub
ErrorHandler:
MsgBox “端口打开失败！端口可能已被占用或硬件不存在：” & Err.Description, vbExclamation
End Sub

Private Sub btnSendCommand_Click()
If MSComm1.PortOpen Then
‘ 向外部设备发送 ASCII PING 查询指令并追加回车换行符
MSComm1.Output = “PING” & vbCrLf
Else
MsgBox “请先打开通信端口！”, vbExclamation
End If
End Sub

‘ 硬件事件驱动通信处理例程
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
‘ UART 接收缓冲区中已有数据到达！
Dim strReceived As String
strReceived = MSComm1.Input
txtLogReceived.Text = txtLogReceived.Text & strReceived
txtLogReceived.SelStart = Len(txtLogReceived.Text) ‘ 自动滚动至末尾

Case comEvCTS
txtLogReceived.Text = txtLogReceived.Text & “[状态] CTS (Clear To Send) 线路电平发生跳变。” & vbCrLf
Case comEvDSR
txtLogReceived.Text = txtLogReceived.Text & “[状态] DSR (Data Set Ready) 线路电平发生跳变。” & vbCrLf
Case comBreak
txtLogReceived.Text = txtLogReceived.Text & “[警告] 检测到硬件线路中断 (Break) 信号！” & vbCrLf
Case comFrame
txtLogReceived.Text = txtLogReceived.Text & “[错误] UART 帧校验错误（波特率不匹配）！” & vbCrLf
Case comOverrun
txtLogReceived.Text = txtLogReceived.Text & “[错误] UART 缓冲区溢出（发生数据丢包）！” & vbCrLf
End Select
End Sub
“`

—

## 第三转折：为什么廉价 USB 转接线无法替代并口？

许多人在市场上购买 5 至 10 美元的蓝色注塑“USB 转并口（DB-25）”转接线，试图通过 `Inpout32.dll` 控制外部继电器，结果无一例外彻底失败。

核心原因如下：
1. **USB 打印机设备类 (Class 07)：** 廉价转换线（通常采用 Prolific PL2305 或沁恒 CH340S 芯片）在 Windows 中不会被枚举为标准 LPT 并口，而仅注册为 USB 打印支持设备。
2. **缺乏 0x378 物理地址映射：** 这些设备并未在主板 I/O 空间分配 `0x378` 或 `0x278` 硬件地址。它们只能按批次封包传输打印 Spool 数据，根本不支持单个引脚状态的任意翻转（Bit-banging）。

### 现代工业可行方案：
– **加装原生 PCI-Express (PCIe) 并口扩展卡：** PCIe 控制卡会在系统 I/O 地址空间分配真实的硬件寄存器映射（例如 `0xE010`），`Inpout32` 可以直接向新地址写入控制数据。
– **选用 FTDI FT2232H / FT232H USB 模块：** 此类专业芯片通过 FTDI 专用的 D2XX 驱动层支持异步 Bit-bang 模式，能在纳秒级时序内将 8 根引脚模拟为高速虚拟并口 [2]。

—

## 5. 在 Windows 11 上延续 VB6 运行环境

基于长期的 **”It Just Works”** 兼容性承诺，微软在最新 64 位 Windows 10 与 Windows 11 操作系统中，仍默认内置了 Visual Basic 6.0 的核心运行时引擎（`msvbvm60.dll`）[1]。

然而，在 64 位系统上注册老旧 OCX 与 DLL 组件时，最典型的操作错误如下：

“`cmd
REM 错误：复制到 64 位 System32 目录下并从该路径注册
regsvr32 C:\Windows\System32\MSCOMM32.OCX <-- 将报错或无法正常识别！ ``` ### 规范操作流程： 1. 将 `MSCOMM32.OCX` 与 `INPOUT32.DLL` 文件复制至 `C:\Windows\SysWOW64\` 目录。 2. 以**管理员身份**打开命令提示符 (cmd)。 3. 执行注册指令： ```cmd cd C:\Windows\SysWOW64 regsvr32 MSCOMM32.OCX ``` 当屏幕弹出 *"DllRegisterServer in MSCOMM32.OCX succeeded"* 提示框时，表明 32 位转译层（WoW64）已成功完成控件绑定。 --- ## 结语：0x378 地址留给现代工程的启示 如今的前端开发者为了让网页表单上的一个按钮变色，往往需要下载 400 MB 的 `node_modules` 依赖包。而在 1998 年，Visual Basic 6.0 仅凭一个 16 位的整型数值，就能稳定掌控整座化工厂的冷却水循环塔。 Visual Basic 6.0 绝非十全十美的编程语言：它缺乏现代面向对象的实现继承机制，内存安全机制原始，`On Error Resume Next` 也常引诱开发者忽略潜在隐患。但它从未在工程师与硬件机器之间筑起厚重的抽象壁垒。写入 0x378 地址的一个字节，就是电流本身。 工业生产体系至今未曾抛弃 VB6，或许并非源于怀旧，而是源于对极简架构所赋予的坚实可靠性的信赖。 1. *当代复杂的微服务架构与多层抽象，是否拉长了面对物理硬件故障时的排查时间？* 2. *在对服役二十余年的工业控制系统进行现代化重构时，你的首要原则是保障既有系统的平稳运行，还是用现代开发框架彻底重写？* --- ### 已验证参考资料与延伸阅读 - [1] **Jan Axelson 经典著作：** *Serial Port Complete: COM Ports, USB Virtual COM Ports, and Ports for Embedded Systems*. Lakeview Research. 链接：`https://janaxelson.com/serport.htm` - [2] **高性能并行接口技术专著：** *Parallel Port Complete: Programming, Interfacing, & Using the PC's Parallel Printer Port & InpOut32 Driver Architecture*. 链接：`https://www.lvr.com/parport.htm`