使用方法: Dim m_cs232 As New CRs232 m_cs232.openPort() '打开串口 Dim send() As Byte = {&H1, &H2, &H3} m_cs232.write(send) '发送 Dim i as integer = m_cs232.GetReadBuffer() '得到串口输入缓冲区当前字节数 Dim rev() As Byte rev = m_cs232.read(3) '读取3个字节 m_cs232.clsPort()