帮帮我吧

Question

小第用VB编程，刚学的，我试着用VB子带的WINSOCK控件编个东东，可问题来了，当我用WINSOCK控件里的SENT DATA方法时系统总是给出提试，说什么错误的协议或连接，是怎么回事啊
代码如下：
客户端：Private Sub Form_Load()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 2003
Winsock1.Connect Text1.Text, 2003
Winsock1.SendData Text2.Text
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a
Text3.Text = a
End Sub
服务器：
Private Sub Form_Load()
Winsock1.LocalPort = 2003
Winsock1.Listen
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.SendData Text1.Text
End Sub

Answer 1

呵呵，我也是刚刚才问到答案的，这是叫Supermanking(人类)的朋友给我的源吗，我就借花献佛了：
server:
Private Sub Form_Load()
Winsock1.LocalPort = 2048
Winsock1.Listen
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   If Winsock1.State <> sckClosed Then Winsock1.Close
   Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim str As String
   Winsock1.GetData str,vbString,bytesTotal
End SubClient:
Private Sub Command1_Click()
   Winsock1.RemoteHost = Text1.Text
   Winsock1.RemotePort = 2048
   Winsock1.Connect
   Command1.Enabled = False
End SubPrivate Sub Command2_Click()
MsgBox Text2.Text
Winsock1.SendData (Text2.Text)
End SubPrivate Sub Winsock1_Close()
   Winsock1.Close
End SubPrivate Sub Winsock1_Error(ByVal Number...)
   Msgbox "不能连接"
   Winsock1.Close
End Sub