vb6使用mscomm，串口读取16进制字节数据，然后判断第4、5个字节是否不为0000

以下是VB6中使用MSComm读取串口数据并判断第4、5个字节是否不为0000的示例代码：

Private Sub MSComm1_OnComm()

Dim buffer As String
Dim data() As Byte
Dim fourthByte As Byte
Dim fifthByte As Byte

If MSComm1.CommEvent = comEvReceive Then
buffer = MSComm1.Input
data = StrConv(buffer, vbFromUnicode)
If UBound(data) >= 5 Then '检查数据长度是否足够
fourthByte = data(3)
fifthByte = data(4)
If fourthByte <> 0 Or fifthByte <> 0 Then '判断第4、5个字节是否不为0000
'执行相关操作
End If
End If
End If

End Sub

在MSComm1_OnComm事件中，首先将读取到的串口数据转换为字节数组，然后判断数组长度是否足够，接着取出第4、5个字节的值进行判断，如果不为0000则执行相关操作。注意，MSComm1的属性需要正确设置，包括端口号、波特率、数据位、停止位等。