ioapi.bas

数模转换程序

Attribute VB_Name = "Module1"
Declare Function ReadFile Lib "kernel32" _
(ByVal Handle&, _
BufferPtr As Integer, _
ByVal ByteCount&, _
BytesReturnedPtr&, _
ByVal OverlappedPtr& _
) As Long

Declare Function WriteFile Lib "kernel32" _
(ByVal Handle&, _
BufferPtr As Byte, _
ByVal ByteCount&, _
BytesReturnedPtr&, _
ByVal OverlappedPtr& _
) As Long

Declare Function DeviceIoControl Lib "kernel32" _
(ByVal hDevice&, _
 ByVal dwIoControlCode&, _
 lpInBuffer As Byte, ByVal nInBufferSize&, _
 lpOutBuffer As Byte, ByVal nOutBufferSize&, _
 lpBytesReturned&, _
 lpOverlapped& _
 ) As Long