关于vb中传递二进制数据流的问题？

Question

我在用socket发送数据的时候，数据包的前四个字节是表示数据包长度的，后面是文本信息，该怎么写呢？

Answer 1

比如说我
dim  len as integer
len=200
len怎么分为四个字节传呢？唉没做过这个，试试太麻烦

Answer 2

Public Sub LongToBIN(ByVal Value As Long, _
                     b() As Byte, _
                     ByVal Index As Long, _
                     ByVal Num As Long)
    Dim i As Long
    
    For i = 0 To Num - 1
        b(Index + i) = Value Mod &H100
        Value = Value \ &H100
    Next i
End Sub
dim  len as integer
dim b(3) as long 
dim i as long 
len=200LongToBIN len,b,0,4for i = 0 to ubound(b)
    debug.print b(i)
next i