vb连接服务器不稳定,请教关于vb中的winsock有时连接不上的问题

请教关于vb中的winsock有时连接不上的问题

我的程序非常简单，描述如下：服务器：winsock名称：ftcp本地端口号：2800远程端口号：2700IP地址：192.168.23.53客户端：winsock名称：ktcp本地端口号：2700远程端口号：2800IP地址：192.168.23.54服务器端代码：Private Sub Form_Load()ftcp.LocalPort = 2800ftcp.RemotePort = 2700ftcp.RemoteHost = "192.168.23.54"ftcp.ListenEnd SubPrivate Sub ftcp_ConnectionRequest(ByVal requestID As Long)ftcp.Closeftcp.Accept requestIDMsgBox "收到客户端连接请求！"End Sub客户端代码：Private Sub Form_Load()ktcp.LocalPort = 2700ktcp.RemotePort = 2800ktcp.RemoteHost = "192.168.23.53"ktcp.ListenEnd SubPrivate Sub Command1_Click()'这个按钮为“连接”按钮ktcp.Closektcp.ConnectEnd SubPrivate Sub kzt_Connect()MsgBox "连接服务器成功！"End Sub当点击客户端的“连接”按钮时，如果连接成功，则两端都会弹出提示框。但是有时候却弹不出来，我也摸不清楚规律。我的QQ是185938477，希望能和各路高人交流一下，互相促进。本人的单机编程水平还是可以的。本贴在vb贴吧上数次发不成功，一发就被删除。只有跑这里发泄了。