Question

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

我的程序非常简单，描述如下：

服务器：
winsock名称：ftcp
本地端口号：2800
远程端口号：2700
IP地址：192.168.23.53

客户端：
winsock名称：ktcp
本地端口号：2700
远程端口号：2800
IP地址：192.168.23.54

服务器端代码：

Private Sub Form_Load()

ftcp.LocalPort = 2800
ftcp.RemotePort = 2700
ftcp.RemoteHost = "192.168.23.54"
ftcp.Listen

End Sub

Private Sub ftcp_ConnectionRequest(ByVal requestID As Long)

ftcp.Close
ftcp.Accept requestID
MsgBox "收到客户端连接请求！"

End Sub

客户端代码：

Private Sub Form_Load()

ktcp.LocalPort = 2700
ktcp.RemotePort = 2800
ktcp.RemoteHost = "192.168.23.53"
ktcp.Listen

End Sub

Private Sub Command1_Click()

'这个按钮为“连接”按钮
ktcp.Close
ktcp.Connect

End Sub

Private Sub kzt_Connect()

MsgBox "连接服务器成功！"

End Sub

当点击客户端的“连接”按钮时，如果连接成功，则两端都会弹出提示框。但是有时候却弹不出来，我也摸不清楚规律。
我的QQ是185938477，希望能和各路高人交流一下，互相促进。本人的单机编程水平还是可以的。

本贴在vb贴吧上数次发不成功，一发就被删除。只有跑这里发泄了。
最后一段过程的过程名中的控件名我复制错了，应该是

Private Sub ktcp_Connect()

MsgBox "连接服务器成功！"

End Sub

Answer 1

连不上的原因可能是：
1、一方断开链接以后，另一方没有进入listen状态。
2、某一方发生错误的时候，没有关闭winsock并重连
3、遇到错误时，应该使用一个timer来重启一下你的winsock
不明白的欢迎+百度HI

Answer 2

有以下几句是多余的，去掉也行
服务端中的
ftcp.RemotePort = 2700
ftcp.RemoteHost = "192.168.23.54"
客户端中的
ktcp.LocalPort = 2700
=======下面是针对你的问题
客户端的
ktcp.RemoteHost = "192.168.23.52"
这里的IP你要确定是你当时服务端的IP
服务端的IP是不能设置的，像我的电脑是宽带连接后自动分配的IP，每次连接后都不一样
你可以打开宽带连接-详细信息 查看当时IP
如果IP不正确就连不上
这里主要注意一下当两端处于两台不同的电脑，要通过网络进行通讯，IP是不能用ftcp.RemoteHost = "192.168.23.54"
设置的。
如果因为服务端的IP不断的变化，客户端不知道服务端的IP怎么办呢？
可以注册个如希希域名，再下载个该域名专用的客户端像我在官网下的叫“CN99QDNS客户端”，将这个程序在服务端运行，并且将注册的希希域名(包括用户名和口令)写到该程序，这样客户端只要
ktcp.RemoteHost = "你注册的域名就能连接到服务端了"

Answer 3

是不是网络的问题？