Оболочка API взаимодействия Win32 для средства устранения неполадок Vba

Тип COMSTAT
fCtsHold Тоже Длинный
fDsrHold Тоже Длинный
fRlsdHold Тоже Длинный
fXoffHold Тоже Длинный
fXoffSent Тоже Длинный
fEof Тоже Длинный
> fTxim также Long
fReserved As Long
cbInQue As Long
As cbOutQue Long
Окончательный тип

Общедоступная константа OPEN_EXISTING стала равной 3 Общедоступная константа
GENERIC_READ подразумевает &H80000000 Общедоступная
рекуррентная GENERIC_WRITE подразумевает &H40000000
INVALID_HANDLE_VALUE открыта для общедоступная константа означает &HFFFF
MAXDWORD константа клиентов означает &HFFFF

Основная константа PURGE_TXCLEAR — &H4
Стадная константа PURGE_RXCLEAR — &H8

Const public CE_RXOVER — это переполнение очереди приема &H1
Public const CE_OVERRUN означает ошибку переполнения очереди &H2
Public const CE_RXPARITY = получена ошибка четности &H4
Общедоступная константа CE_FRAME = &H8 Получена ошибка кадра Haya
Общедоступная константа CE_BREAK = Обнаружен разрыв &H10
Общедоступная постепенная константа CE_TXFULL равна &H100 Линия TX заполнена

Общая константа SETRTS = три или установка RTS вверх
Общая константа SETDTR = 5 различные установки DTR вверх

Объявить элемент CreateFile “kernel32” lib Псевдоним “CreateFileA” (
lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode
As _
Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As
_
Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long)
As _
Long
Объявить праздник CloseHandle “kernel32” lib (ByVal hObject As Long) As
Long
> Объявить функцию GetLastError “kernel32” lib () As Long
Объявить функцию WriteFile “kernel32” lib (ByVal hFile As Long, lpBuffer
As _
Any, ByVal nNumberOfBytesToWrite As Long lpNumberOfBytesWritten As
> Long , _
ByVal lpOverlapped As Long) As Long
Объявить функцию ReadFile “kernel32” lib (ByVal hFile As Long, lpBuffer
As _
Any, ByVal nNumberOfBytesToReadAs Long , lpNumberOfBytesRead As Long ,

lpOverlapped As Long) As Long
Function Declare SetCommState Lib “kernel32” (ByVal hCommDev As Long ,
lpDCB _
As DCB ) As s Long < br> функция Объявить SetCommTimeouts Lib “kernel32” (ByVal hFile As Long, _
lpCommTimeouts As COMMTIMEOUTS) As Long
функция Объявить PurgeComm Lib “kernel32” (ByVal hFile As Long,
dwFlags As Long ) As Long
событие Объявить BuildCommDCB Lib “kernel32” Псевдоним “BuildCommDCBA”
(
lpDef As String, lpDCB As DCB) As Long
доставить результаты Объявить SetCommMask Lib “kernel32” (ByVal hFile As Long, ByVal
_
dwEvtMask as long) в качестве долгосрочной
функции Объявить ClearCommError Lib “kernel32” (ByVal hFile as long, _
lpErrors пока lpStat видит этот COMSTAT) as long
function Объявить SetupComm Lib функцию “kernel32” с (ByVal hFile, если длинный,
dwInQueue в случаях, когда длинный, ByVal dwOutQueue, если длинный) точно так же, как long