Winsock控件有什么用?

网络通信.联网都可用WINSOCK实现.
本来写了详细说明了一大堆了.但突然来个什么内存不能为什么的,IE就关掉了.我也不想再详细的写了,就给你看一例子吧,你运行看一下吧:
设一个Command,两个Winsock,写入以下代码看发生什么.
Private Sub Form_Load()
Winsock1.RemoteHost = "写你电脑的IP"
Winsock1.RemotePort = 5555
Winsock2.LocalPort = 5555
Winsock2.Listen
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "收到吗?"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim S As String
Winsock1.GetData S, vbString
If S = "收到了." Then Winsock1.SendData "那就好."
Print S
End Sub

Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim S As String
Winsock2.GetData S, vbString
If S = "收到吗?" Then Winsock2.SendData "收到了."
Print S
End Sub