vb6.0里使用winsock 服务端客户端连接问题

Question

我用如下代码向实现：请求连接时不马上接受 通过点一个按钮才建立连接

问下 tcpserver.accept id 怎么写啊

代码：Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
'检查控件的 State 属性是否为关闭的。

'如果不是，

'在接受新的连接之前先关闭此连接。

If tcpserver.State <> sckClosed Then _

tcpserver.Close

'接受具有 requestID 参数的’连接。
End If
Label1.Caption = "有连接请求"
End Sub

Private Sub Command1_Click()

tcpserver.Accept requestID
End Sub

Command1_Click当中的 requestID好像失效了 我知道问题处在哪里
我只要求实现我的功能就行 不是要查 错 我这个功能怎么实现呢？

Answer 1

tcpserver.Accept requestID
这句话要写在 Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
这个过程里面才有用...
还有就是,Listen的winsock和Accept 的winsock最好是分开的,别用一个