关于VBWinsock的两个问题看了网上的例子，贴出代码Server：DimstrDataAsIntegerPrivateSubformLoad()sckServer.LocalPort=****sckServer.ListenEndSubPrivateSubsckServerConnectionRequest(ByValrequestIDAsLong)sckServer.Acce

Question

关于VB Winsock的两个问题看了网上的例子，贴出代码Server：Dim strData As Integer Private Sub form_Load()sckServer.LocalPort = ****sckServer.ListenEnd Sub Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)sckServer.Accept requestIDIf sckServer.State sckClosed Then sckServer.Close '这句不知啥意思，为什么要关闭，关闭不就不能通讯了吗，这个Close到底什么意思End Sub Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)sckServer.GetData strData...End Sub Client:Private Sub Command2_Click()SckClient.SendData ***End Sub Private Sub Command3_Click()SckClient.SendData ***End Sub Private Sub form_Load()SckClient.RemoteHost = "***.***.***.***"SckClient.RemotePort = ****End Sub Private Sub cmdConnect_Click()SckClient.Connect '还有就是这里 点了一下连接成功，再点一下就是错误40020End Sub Private Sub SckClient_Connect()Print "Connetion successful!"End Sub 就这两个问题 求解

Answer 1

Private Sub cmdConnect_Click() SckClient.Connect '还有就是这里 点了一下连接成功，再点一下就是错误40020 End Sub 你需要在连接的上面加一个 SckClient.Close If sckServer.State sckClosed Then sckServer.Close 这个State是Winsock 的状态值,如果状态不是关闭的话就关闭它,这句应该放到s ckServer.Accept requestID 的上面,当有连接来到的时候应该是关闭当前连接先再接受新的连接...