winsock控件使用例子(编辑修改稿)内容摘要:

ckIndex amp。 Exit Sub End If 查找空闲的 sock SockIndex = FindFreeSocket() ’如果已有的 sock 都忙,而且 sock 数不超过 15 个,动态添加 sock If SockIndex SockNum Then Load Sock(SockIndex) End If ConnectState(SockIndex) = BUSY Sock(SockIndex).Tag = SockIndex 接受请求 Sock(SockIndex).Accept (requestID) SockIndex amp。 接受请求 End Sub 客户断开,关闭相应的 sock Private Sub Sock_Close(Index As Integer) If Sock(Index).State sckClosed Then Sock(Index).Close End If ConnectState(Index) = FREE Index am。
阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体),仅供学习参考。 用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权,请联系我们反馈本站将在三个工作日内改正。