计算机网络实验网络编程(编辑修改稿)内容摘要：
听状态；另一个按钮用来推出服务器应用程序，命名为 cmdClose. 具体代码如下： Option Explicit Dim HostName As String * 256 Dim HostIP As String Dim colHostName As Collection 39。 存储用户 Dim colHostcourse As Collection 39。 存储用户所选择的课程名 Private Sub Form_Load() 39。 获取本地计算机的名称和 IP HostName = HostIP = 39。 初始化端口号为 1024 = 1024 End Sub Private Sub cmdOpenPort_Click() If Trim$() = vbNullString Then MsgBox 请指定端口号。 Exit Sub End If 39。 设置服务器的端口号 = CLng(Trim$()) 39。 服务器端 WinSockTCP 空间执行监听功能 End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub WinsockTCP_ConnectionRequest(ByVal requestID As Long) On Error GoTo err 39。 检查控件的 State 属性是否为关闭的 39。 如果不是，在接受新的连接之前先关闭此连接 If sckClosed Then End If 39。 利用 WinSock 控件响应请求 39。 同时相集合中加入该客户端的地址 requestID err: MsgBox End Sub Private Sub WinsockTCP_DataArrival(ByVal bytesTotal As Long) Dim sData As String Dim。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。