一个VB源代码解释问题,请解释一下,越详细越好!!!
来源:百度知道 编辑:UC知道 时间:2024/09/21 08:28:14
请详细一点,最好一条一条说明。
第一段
Private MaxChan As Integer
Private Sub cmdexit_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
MaxChan = 15
For i = 1 To MaxChan - 1
Load sckServer(i)
Next i
sckListen.LocalPort = 1001
sckListen.Listen
End Sub
Private Sub sckBusy_Close()
sckBusy.Close
End Sub
Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long)
sckBusy.SendData "服务器忙,请稍后再连接!"
DoEvents
End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
Dim i As Integer
'决定由哪一Winsock接受请求
For i = 0 To MaxChan - 1
If sckServer(i).State = 0 Then
Exit For
End If
Next i
If sckServer(i).State = 0 Then
sckServer(i).Accept requestI
第一段
Private MaxChan As Integer
Private Sub cmdexit_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
MaxChan = 15
For i = 1 To MaxChan - 1
Load sckServer(i)
Next i
sckListen.LocalPort = 1001
sckListen.Listen
End Sub
Private Sub sckBusy_Close()
sckBusy.Close
End Sub
Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long)
sckBusy.SendData "服务器忙,请稍后再连接!"
DoEvents
End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
Dim i As Integer
'决定由哪一Winsock接受请求
For i = 0 To MaxChan - 1
If sckServer(i).State = 0 Then
Exit For
End If
Next i
If sckServer(i).State = 0 Then
sckServer(i).Accept requestI
这是一个聊天室的服务器端,具有登录,接受客户端信息,转发和广播的功能。
Private MaxChan As Integer '这个不用解释了吧?
Private Sub cmdexit_Click() '这个过程就是当按了cmdexit这个按钮时,程序结束
End
End Sub
Private Sub Form_Load()
Dim i As Integer
MaxChan = 15 ’给maxchan赋值
For i = 1 To MaxChan - 1 '循环
Load sckServer(i) ’加载winsock控件数组中的元素
Next i
sckListen.LocalPort = 1001 '设置名为scklisten的本地端口为1001
sckListen.Listen ’开始监听端口
End Sub
Private Sub sckBusy_Close() '这个过程是当sckbusy这个winsock控件结束时运行的,其结果就是关闭
sckBusy.Close
End Sub
Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long) '这个过程是当sckbusy这个winsock接受到客户端发送来的数据时过程,下面一句的意思是,发送给客户端"服务器忙,请稍后再连接!"这句话。
sckBusy.SendData "服务器忙,请稍后再连接!"
DoEvents
End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long) 'sckliste