怎么在TEXT上发送16进制了。 想把在WPE拿下来的16进制放上TEXT上发送。怎么解决？

Question

怎么在TEXT上发送16进制了。。 想把在WPE拿下来的16进制放上TEXT上发送。怎么解决？

Answer 1

把16进制转成字符串放到text中，发送时在处理即可

Answer 2

把16进制转到字节数组，再转成文本
如:
C4E3BAC3   你好
两个两个一组放入字节数组Private Sub Command1_Click()
   Dim ByteArray() As Byte
   Dim ByteLen As Long
   Dim HexStr As String
   Dim TempStr As String
   HexStr = "C4E3BAC3"
   ByteLen = Len(HexStr) / 2
   ReDim ByteArray(ByteLen - 1)
   For X = 0 To ByteLen - 1
      ByteArray(X) = Int("&H" & Mid(HexStr, (X * 2) + 1, 2))
   Next X
   Text1.Text = StrConv(ByteArray, vbUnicode)
End Sub

Answer 3

Private Sub Command1_Click()
   Dim ByteArray() As Byte
   Dim ByteLen As Long
   Dim HexStr As String
   Dim X As String
   HexStr = "C4E3BAC3"
   ByteLen = Len(HexStr) / 2
   ReDim ByteArray(ByteLen - 1)
   For X = 0 To ByteLen - 1
      ByteArray(X) = Int("&H" & Mid(HexStr, (X * 2) + 1, 2))
   Next X
   Text1.Text = StrConv(ByteArray, vbUnicode)
End Sub

Answer 4

越贴越出鬼Private Sub Command1_Click()
   Dim ByteArray() As Byte
   Dim ByteLen As Long
   Dim HexStr As String
   Dim X As Long
   HexStr = "C4E3BAC3"
   ByteLen = Len(HexStr) / 2
   ReDim ByteArray(ByteLen - 1)
   For X = 0 To ByteLen - 1
      ByteArray(X) = Int("&H" & Mid(HexStr, (X * 2) + 1, 2))
   Next X
   Text1.Text = StrConv(ByteArray, vbUnicode)
End Sub

Answer 5

先感谢supermanking还有点问题不明白的我发送“DF 36 B1 31 71 5D F3 5D EF B6”10个 
在WPE里是显示“3F 3F 71 5D F3 5D EF B6” 8个
如果我发10次“11 22 33 44 55 66 77 88 99 00”一个都不少。都正确。就是上面的哪个不行。 Dim ByteArray() As Byte
Dim ByteLen As Long
Dim HexStr As String
Dim TempStr As String
HexStr = Text1.Text
   ByteLen = Len(HexStr) / 3
   ReDim ByteArray(ByteLen - 1)
   For X = 0 To ByteLen - 1
      ByteArray(X) = Int("&H" & Mid(HexStr, (X * 3) + 1, 2))
   Next X
  Me.Winsock2.SendData StrConv(ByteArray, vbUnicode)