ÎÒ ÊÔ Ñé ÁË Ò» ÏÂ ,¿É ÒÔ ·¢ ËÍ ´ó ÓÚ 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>