VB6 通过winsock控件数组实现客户端和服务器多对一通信

在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件

 

使用winsock控件可以实现客户端和服务器间C/S结构的通信，如果把客户端和服务器放置于同一台电脑中，并且将客户端winsock的RemoteHost设置为本机IP，则可以实现客户端程序和服务端程序间的自由通信。在应用程序之间采用winsock通信比内存共享等方法更简单快捷，同时也更安全。

 

在客户端中添加一个窗体，拖拽一个winsock控件到该窗体上。

Private Sub Form_Load() Me.Winsock1.RemoteHost = "192.168.1.5" Me.Winsock1.RemotePort = 10002 Me.Winsock1.Connect End Sub

RemoteHost代表需要连接的远程服务器IP地址，局域网中的通信可以使用路由器分配的IP地址。

RemotePort代表端口号，服务器和客户端通过该端口进行连接。

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strGet As String '接收字符串并写入Text1控件中 Winsock1.GetData strGet Text1.Text = strGet End Sub

当客户端的winsock接收到服务器发送来的数据后会触发Winsock1_DataArrival事件，利用GetData方法可以将数据读取出来，一般来说将数据读取到byte()数组中是最好的，因为利用字节数组可以收发图片、音频等文件，本例中为了演示所以直接用一个字符串变量来读取数据了。

 

Dim strS