winsocket多个客户端连接的问题
服务器端开放一个端口1399,启动时默认为侦听状态
If sockServer.State <> sckClosed Then
sockServer.Close
End If
sockServer.LocalPort = "1399"
sockServer.Listen
服务器连接请求处理:
Dim msgResult As VbMsgBoxResult
If sockServer.State = sckListening Then
sockServer.Close
End If
lstStateInfo.AddItem "服务器收到连接请求"
sockServer.Accept requestID
lstStateInfo.AddItem "连接成功"
客户端连接
sockClient.Protocol = sckTCPProtocol
If txtServerName.Text <> Empty Then
sockClient.RemoteHost = txtServerName.Text
Else
lstStateInfo.AddItem "必须输入服务器名称或IP地址"
Exit Sub
End If
If txtServerPort.Text <> Empty Then
sockClient.RemotePort = txtServerPort.Text
Else
lstStateInfo.AddItem "必须输入远程端口"
Exit Sub
End If
sockClient.Connect
客户端数据发送
sockClient.SendData txtSend.Text
一个客户端没有关系,第二个客户端打开连接时,就会返回“连接被强制拒绝”
如果不使用connect,直接数据发送,则会提示"所需事物或请求的错误协议或连接状态"
是什么原因,请指点