Private intMax As LongPrivate Sub Form_Load()
  intMax = 0
  sckServer(0).LocalPort = 1001
  sckServer(0).Listen
End SubPrivate Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
  If Index = 0 Then
  intMax = intMax + 1
  Load sckServer(intMax)
  sckServer(intMax).LocalPort = 0
  sckServer(intMax).Accept requestID
  Load txtData(intMax)
  End If
End Sub请教一下各位申请连接的时候SOCK控件的INDEX都是为0,那么为什么还要在事件里面还需要判断SOCK控件的INDEX是否为0呢?

解决方案 »

  1.   

    以防万一不是零?
    或者以后要改为比如用Index0和Index1同时监听两个端口用的时候好区分是哪个端口来的请求?
      

  2.   

    因为你只有一个人在用的时候,或者是你在调试的时候,只有一个用户,index当然都是0.如果有多个用户同时使用,index就不会只是0了。
      

  3.   

    意思就是说在本机连接的时候都是处于0号,但是多个连接并发的时候就不一定是触发的0号SOCKS了?
      

  4.   

    只监听一个商品的时候连接的时候无论如何都应该是连接的SOCKS0吧!
    或者那个判断是用于同时监听两个端口的时候用来区分是哪个端口进行连接的?
      

  5.   

    也就是说如果我只监听一个端口作为客户端连接的依据的话那么就不需要判断是否是SOCKS 0 控件吧
      

  6.   

    是的。一个客户端都不用建立控件数组,一个winsock就OK了。