请教：

  现在要做个视易开关房及酒水接口的程序，按照接口协议的说明，通过UDP方式向酒水接口发送0x010x01的数据，

UDP 协议格式:

-----------------------------------------------------------------------------------------------------  ------------------------------------------
主消息号（4字节）    子消息号(4字节)   包厢IP(4字节)    预留(16字节)    正文长度（4字节）    正文内容(不超过4096-32字节)
-----------------------------------------------------------------------------------------------------  ------------------------------------------
                              
           包头部分(32字节固定长度)                                    正文部分

我调试这样发送：winsock.senddata "0x010x01000000000000000000000000192.168.1.2"

酒水接口接收的数据是这样的：[31303030][31303030]192.168.1.2

酒水接口接收正确的应该是：[0001][0001]192.168.1.2

请问我应该怎么发送0x01,0x01这个数据？

[此贴子已经被作者于2018-3-16 17:38编辑过]

先谢谢！！没看到转换0x010x01成二进制的地方？

[此贴子已经被作者于2018-3-16 18:58编辑过]

大神：能否给个数据结构的例子，我发送到酒水接口试试？

现在我用字符发送过去，接口始终收到的是 ascii值，而不是正确的[0001][0001]192.168.1.2　这样的值

谢谢wds1，我理解了一点点的关于自定义数据类型 ，但编译时提示有错误：不支持的变体类型，

ip,应该和正文部份在一起的，udhi 和 txt 如何重新赋值到新的数组？请指教下,谢谢，谢谢

谢谢版主：终于搞通了，十分感谢！

          Dim udhi(31) As Byte '定义头数组
          Dim txt() As Byte '定义正文数组
          Dim Send_data()  As Byte
         
          '下面部分也可以定义结构体
          Dim No1 As Long
          Dim No2 As Long
          Dim ip As String
           
          Dim len1 As Long
          Dim Txt1 As String
         '赋值
          No1 = 1
          No2 = 2

          Txt1 = "000000"
          len1 = LenB(Txt1)
         
          Txt2 = "192.168.1.2测试测试........."
         
         '数据转为数组
          CopyMemory udhi(0), No1, 4
          CopyMemory udhi(4), No2, 4
         

          CopyMemory udhi(31), len1, 4
        
          txt = StrConv(Txt2, vbFromUnicode)
         
          ReDim Send_data(UBound(udhi) + UBound(txt) + 1)
         
          For i = 0 To 31: Send_data(i) = udhi(i): Next
          For i = 0 To UBound(txt): Send_data(32 + i) = txt(i): Next i
         
          Winsock1.SendData Send_data