可能是我说的不详细吧
服务器的winsock有2两个
一个是listener用来侦听
一个是sock()是用来分配给不同用户的。
sock()被我用其他方法限定为最多15个。
服务器的winsock有2两个
一个是listener用来侦听
一个是sock()是用来分配给不同用户的。
sock()被我用其他方法限定为最多15个。
编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
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