可能是我说的不详细吧
服务器的winsock有2两个
一个是listener用来侦听
一个是sock()是用来分配给不同用户的。
sock()被我用其他方法限定为最多15个。
服务器的winsock有2两个
一个是listener用来侦听
一个是sock()是用来分配给不同用户的。
sock()被我用其他方法限定为最多15个。

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。

2014-12-26 18:37
2014-12-26 18:47

2014-12-26 18:58
2014-12-26 19:13
2014-12-26 20:41

2014-12-26 21:08
2014-12-26 21:16
程序代码:Sock(Index).GetData Dx, vbDouble If Mid(Dx, 1, 3) = "For" Then MsgTmp = Replace(Dx, "For", "") UsersWant = InStr(2, MsgTmp, "#") UsersWant2 = Mid(MsgTmp, 2, UsersWant - 1) MsgTmp2 = Replace(MsgTmp, "#", "") On Error Resume Next back: If Sock(a).Tag = UsersWant2 Then Sock(a).SendData MsgTmp2 Else a = a + 1: GoTo back End If

2014-12-26 21:22

2014-12-27 11:01

2014-12-27 12:17