VB用winsock网络编程请教

Question

本帖最后由 xflg2006 于 2009-11-18 15:16:11 编辑

Answer 1

用socket控件数组，
一个socket对应一个连接
也就是服务端多个socket，客户端一个socket

Answer 2

Private Sub Form_Load()
ReDim Preserve ConnectState(0 To 1)
ConnectState(0) = FREE
ConnectState(1) = FREE
End Sub
你一开始的控件数组 sock 已经有两个实例了{sock(0), sock(1)}?

Answer 3

Private Sub Listener_ConnectionRequest(ByVal requestID As Long)
SockNum = UBound(ConnectState)
SockIndex = FindFreeSocket()
If SockIndex > SockNum Then
Load sock(SockIndex)
End If
你会在什么时候执行　Load sock(SockIndex)?

Answer 4

应该直接写成
   
SockNum= SockNum+ 1            
   Load sock(SockIndex)                   
   sock(SockIndex).Accept (requestID)       

Answer 5

至于协议，只要选择UDP还是TCP，其他的不用管，底层自己解决的