调整后代码（可以正常发送命令）Ports.Add("COM8")
With Ports("COM8")
.Close()
.Parity = Parity.None
' .Handshake = Handshake.None
.StopBits = StopBits.One
.BaudRate = 921600
.DataBits = 8
' .ReadBufferSize() = 4096
' .WriteBufferSize() = 2048
.Encoding = Encoding.Unicode
.Open
End With
Dim zl1 As UInteger = HexToDec( "BB")
Dim zl2 As UInteger = HexToDec("00")
Dim zl3 As UInteger = HexToDec("27")
Dim zl4 As UInteger = HexToDec( "00")
Dim zl5 As UInteger = HexToDec( "03")
Dim zl6 As UInteger = HexToDec("22")
Dim zl7 As UInteger = HexToDec( "FF")
Dim zl8 As UInteger = HexToDec( "FF")
Dim zl9 As UInteger = HexToDec( "4A")
Dim zl10 As UInteger = HexToDec("7E")
Dim Val() As Byte = New Byte() {zl1, zl2, zl3, zl4, zl5, zl6, zl7, zl8, zl9, zl10}
Ports("COM8").Write(Val, 0, Val.Length)
Ports("COM8").Close()
加好友 
发短信
Post By：2024/12/31 15:38:00 [显示全部帖子]
此主题相关图片如下：代码.png
