侦听线程改进--StartListening()。使用私有子程序StartListening()启动侦听。获取本机IP地址并显示在ToolStripStatusLabel2中。初始化TcpListener并开始侦听。无限循环以接收客户端套接字并为每个新客户端建立服务线程。如果出现异常,显示错误消息。
VB 19 次浏览