功能：

Private Declare Function inportb (ByVal port As Integer) As Byte Reads in a byte
Private Declare Function inportw (ByVal port As Integer) As Integer Reads in a word
Private Declare Sub outportb(Byval port As Integer, x As Byte) Sends a byte
Private Declare Sub outportw(Byval port As Integer, x As Integer) Sends a word

这里提供inout.dll下载