＋设为首页 ＋添加到收藏夹
求教，用winSock做服务器怎么解决多客户访问
Option Explicit
Private intMax As Long winsock最大的下标
Private Sub Form_Load()
intMax = 0
Winsock1(0).LocalPort = 7699 本地监听的端口
Winsock1(0).Listen
End Sub
*************************************************************************
**函 数 名：Winsock1_ConnectionRequest
**输 入：Index(Integer) -
** ：ByVal requestID(Long) -
**输 出：无
**功能描述：对方请求连接时候触发,当没有以前已经关闭的控件的winsock控件数组的话就创建
**全局变量：
**调用模块：
**作 者：影子
**日 期：2005-02-06 08:39:12
**修 改 人：
**日 期：
**版 本：V1.0.0
*************************************************************************
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
Dim i As Integer
Dim temp As Integer
temp = 0
For i = 1 To intMax
If Winsock1(i).State = 0 Then
temp = i
Exit For
End If
Next
If temp = 0 Then
intMax = intMax + 1
temp = intMax
End If
Load Winsock1(temp)
Winsock1(temp).LocalPort = 0
Winsock1(temp).Accept requestID
End If
End Sub
