如何使用winsock接受超过1k的数据.txt

VB技巧问答10000例 VB技巧问答10000例

我 试 验 了 一 下 ,可 以 发 送 大 于 1000byte的 字 节 ,下 面 是 我 的 代 码 ,不 知 与 作 者 有 何 不 同 。 
     发 送 端 : 
     Dim myarray(6000) As Byte 
     myarray(0) = &HE2 
     myarray(1) = &H5C 
     myarray(2) = &H4B 
     myarray(3) = &H89 
     myarray(4) = &HF0 
     myarray(6000) = &H1 
     If (Me.Winsock2.State = sckConnected) Then 
     Me.Winsock2.SendData myarray() 
     Else 
     MsgBox "主 机 ,客 户 机 没 有 连 接 !" 
     End If 
     接 收 ?FONT COLOR="#000000">?/FONT>: 
     dim recarray() as byte 
     dim tempstring as string 
     Winsock1.GetData recarray, vbByte 
     For i = 0 To UBound(recarray) 
     If (Len(Hex(recarray(i))) = 1) Then 
     tempstring = tempstring & "0" & Hex(recarray(i)) & " " 
     Else 
     tempstring = tempstring & Hex(recarray(i)) & " " 
     End If 
     DoEvents 
     Next i 
     Me.Text1 = tempstring 
<END>