网络传输问题（vb）

按Server和Client两部分编程：

'Server进入侦听状态:
winsock1.localport=2000
Winsock1.listen
'---------------------------------------------
'Client主动去连接Server:
winsock1.remotehost="host" 'host是Server的电脑名字或IP
winsock1.remoteport=2000 '与Server端一致
winsock1.connect
'----------------------------------------------
'Server触发Winsock1_ConnectionRequest事件,在其加入：
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
End Sub
'-------------------------------------------------------
'如果没有意外，两端就连接上了，接下来就可以互相发送数据了：
'Server & Client都可以互发：
winsock1.senddate "Hello"
'电脑在收到数据后，winsock将触发
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim recstr As String
Winsock1.GetData recstr
End Sub
'就是这几步

接收代码：
Private Sub Command1_Click()
MsgBox "收到信息:" &