SendData只處理字符串和字節(jié)數(shù)組，所以其他類型應(yīng)該轉(zhuǎn)換為這兩種類型。對于自定義類型只能轉(zhuǎn)換為字節(jié)數(shù)組。可以利用CopyMemory函數(shù)： 
    Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _ 
     hpvDest As Any, hpvSource As Any, ByVal cbCop 
    先定義一個(gè)字節(jié)數(shù)組： 
    Dim b() As Byte, Str1 As sendpack 
    發(fā)送時(shí)： 
    ReDim B(Len(Str1)) As Byte 
    CopyMemory B(0), Str1, Len(Str1) 
    Winsock1.SendData B 
    接收時(shí)： 
    ReDim B(Len(Str1)) As Byte 
    Winsock1.GetData B 
    CopyMemory Str1, B(0), Len(Str1) 
<END>