【文件属性】：
文件名称：服务端程序主要代码-VB网络程序设计
文件大小：1.97MB
文件格式：PPT
更新时间：2021-04-25 09:30:18
VB网络程序设计
2.服务端程序主要代码
Private Sub WinsockServer_ConnectionRequest _
(ByVal RequestID As Long)
’当收到客户机的连接请求时，完成以下工作：
’（1）结束Winsock的侦听状态；
’（2）接受连接请求；
’（3）将服务器的系统日期发送给客户机
WinsockServer.Close
WinsockServer.Accept RequestID
’将系统当前的时间Date发送给提出请求的客户机
WinsockServer.SendDate
End Sub
*