modbus tcp

[qq_40091069]

Private Sub cmdSend_Click()
On Err GoTo ErrProc
Dim SendStr(11) As Byte
Dim RcvStr() As Byte
SendStr(0) = 0
SendStr(1) = 0
SendStr(2) = 0
SendStr(3) = 0
SendStr(4) = 0
SendStr(5) = 6
SendStr(6) = 1
SendStr(7) = &H1
SendStr(8) = 3
SendStr(9) = &HE8
SendStr(10) = 0
SendStr(11) = &HA
Dim aStr As String
Dim i As Integer
For i = 0 To 11
aStr = aStr & Chr(SendStr(i))
Next
Winsock1.SendData aStr
Exit Sub
ErrProc:
MsgBox "传输数据失败", vbCritical, "网络传输"
End Sub
这段代码我想实现的是：
Tx:465-50 5A 00 00 00 06 01 01 03 E8 00 0A
Rx:466-50 5A 00 00 00 05 01 01 02 01 00
Tx:467-50 5B 00 00 00 06 01 01 03 E8 00 0A
Rx:468-50 5B 00 00 00 05 01 01 02 01 00
Tx:469-50 5C 00 00 00 06 01 01 03 E8 00 0A
Rx:470-50 5C 00 00 00 05 01 01 02 01 00
可是我用moabus slave 测试出来错误：
000290-Rx:00 00 00 00 00 06 01 01 03 3F 00 0A
000291-Tx:00 00 00 00 00 03 01 81 02
请高手指点一下