2024年5月31日发(作者：)

2号代码：

Option Explicit

Declare Function MapPhysToLin Lib "" (ByVal PhysAddr As Long,

ByVal PhysSize As Long, ByRef PhysMemHandle) As Long

Declare Function UnmapPhysicalMemory Lib "" (ByVal

PhysMemHandle, ByVal LinAddr) As Boolean

Declare Function GetPhysLong Lib "" (ByVal PhysAddr As Long, ByRef

PhysVal As Long) As Boolean

Declare Function SetPhysLong Lib "" (ByVal PhysAddr As Long, ByVal

PhysVal As Long) As Boolean

Declare Function GetPortVal Lib "" (ByVal PortAddr As Integer, ByRef

PortVal As Long, ByVal bSize As Byte) As Boolean

Declare Function SetPortVal Lib "" (ByVal PortAddr As Integer, ByVal

PortVal As Long, ByVal bSize As Byte) As Boolean

Declare Function InitializeWinIo Lib "" () As Boolean

Declare Function ShutdownWinIo Lib "" () As Boolean

Declare Function InstallWinIoDriver Lib "" (ByVal DriverPath As String,

ByVal Mode As Integer) As Boolean

Declare Function RemoveWinIoDriver Lib "" () As Boolean

Public IOStat As Boolean

'************************************************************

'* 函数名称：GetPrnStat

'* 功能：根据打印机的内存地址，检测打印机的目前工作状态

'* 参数：lptport: 要检测的打印机的端口号，如LPT1:

'* 返回值：打印机的工作状态值。

'* 0：正常 1：缺纸 2：无联系 3：异常(其他错误)

'* 调用：本模块中的API函数InitializeWinIo和GetPortVal

'* 备注：检测的内存地址，是在打印端口所在的基地址上加1；

'* 作者：谷霖

'* LPT1口的基地址为&H378；LPT2口的基地址为&H278

*

*

*

*

*

*

*

*

*