vb中的winsocks控件如何发送一个结构

Question

只会winsocks1.senddata "内容" 这样方式，现在需要把一个自定义结构发送到对方的主机上去，如何发？哪位高手机留两行代码万分感谢

Answer 1

用api
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)将结构体变成byte()然后接受byte()转化成结构体举例说明一下。Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    i = 123456
    CopyMemory j, i, Len(i)    ' 将 i 的内容复制到 j 中。
    MsgBox j
End Sub

Answer 2

没看明白呀，是不是用内存拷贝做了类型转换？这个和定义结构一样？如何用winsocks发呀？

Answer 3

用CopyMemory后面的ByVal Length As Long长度怎么计算？？？如果结构体是下面这样的呢
Public Type LoanList_Pack_Struct '
    s_TrType As String * 4
    s_ContractNo As String * 8
    s_RefundTimes As String * 1
    s_OrgCode As String * 4 
    s_RegSeq As String * 8 '
    s_RegDate As String * 10 
    s_TransType As String * 1 
    s_CardBal As String * 14
    s_OprCode As String * 4 
    s_LoanDate As String * 10 
    s_RegCode As String * 3 
End Type那用len好像是错了啊