关于winsock编写C/S结构程序的初级问题

Question

我是个初学者，想请教各位大虾用winsock控件写一个能实现互相传送数据的测试程序。希望能给出一个客户端和一个服务器端的简单实例。谢谢，问题解决立刻给分。

Answer 1

http://www.ourfly.com/download/download.aspx
服务端、客户端之间的通信(源码提供)

Answer 2

客户端
Private Sub Form_Load()
With Winsock1
  .RemoteHost = "192.168.0.88" '要连接的服务器IP或名称
  .RemoteHost = 1010
  .LocalPort = 1011
  .Bind 1011
End With
End SubPrivate Sub txtsend_Change()
Winsock1.SendData txtsend.Text
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString
txtoutput.Text = strdata
End Sub服务端
Private Sub Form_Load()
With Winsock1
  .RemoteHost = "192.168.0.71" '要连接的对方向IP或名称
  .RemoteHost = 1010
  .LocalPort = 1011
  .Bind 1011
End With
End Sub
Private Sub txtsend_Change()
Winsock1.SendData txtsend.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
Winsock1.GetData strdata, vbString
txtoutput.Text = strdata
End Sub