如何设置winsock的连接？在VB中

Question

小弟我设置如下：
客户端：
wsreg.localport =1001
wsreg.remoteport =1002
然后再按钮中设置:
wsreg.senddata aa (就是这里出错了，40006)
服务器设置：
wsserver.localport = 1002
wsserver.remoteport = 1001
wsserver.listen
然后再dataarrival事件中设置：
wsserver.getdata bb
但是启动服务器和客户端后，出现了：并且在客户端设置端口处加入了：wsreg.connect
就出现40006错误：所请求的事物或请求本身的错误协议或者错误连接状态。不使用wsreg.connect，就是出现过40020错误：在当前状态下的无效操作。诚盼各位高手指点密经阿！

Answer 1

这样设置：
服务端：
sub form_load()
   wsserver.localport=1002
   wsserver.listen
end sub 
客户端：
sub form_load()
    wsreg.remotehost="127.0.0.1"
    wsreg.remoteport=1002
    wsreg.connect
end subsub winsock_connect()
    wsreg.senddata "ccccc"
end sub

Answer 2

我也是按照楼上说法，写了。但是我客户端在连接后，没有去激发winsock_connect的事件。所以服务器端也没有收到！
请问为什么？

Answer 3

楼主。。开了什么网络防火墙把可能把端口给block了把

Answer 4

应该是 Accept之后才会激发 Connect 事件吧。。你的服务器端有没有
Private Sub wsserver_ConnectionRequest(ByVal requestID As Long)
    wsserver.Close
    wsserver.Accept requestID
End Sub
去应答连接？