Question

VB 中Winsock控件TCP协议为什么不能连接

客户端程序
Private Sub Command3_Click()
Winsock2.Connect
If Winsock2.State = 1 Then MsgBox "打开", vbInformation + vbOKOnly, "提示"
If Winsock2.State = 6 Then MsgBox "正在连接", vbInformation + vbOKOnly, "提示"
If Winsock2.State = 7 Then MsgBox "已连接", vbInformation + vbOKOnly, "提示"

End Sub
服务器端程序
Private Sub Form_Load()
Winsock2.Listen
End Sub
Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
If MsgBox("'10.23.0.1'请求接收文件，是否应答？", vbYesNo, "请求发送文件") = vbNo Then
Winsock2.Close
MsgBox "没有建立起连接！", vbOKOnly + vbInformation
ElseIf Winsock2.State <> sckClosed Then Winsock2.Close
Winsock2.Accept requestID
MsgBox "建立连接", vbOKOnly
End If

End Sub端口我都在属性中定义 了，总是显示正在连接而不是已连接，求高手问为什么？

Answer 1

If Winsock2.State = 1 Then MsgBox "打开", vbInformation + vbOKOnly, "提示"
If Winsock2.State = 6 Then MsgBox "正在连接", vbInformation + vbOKOnly, "提示"
If Winsock2.State = 7 Then MsgBox "已连接", vbInformation + vbOKOnly, "提示"

这三行放错地方了。
应该放在Winsock2_Connect事件里。因为连接是要消耗时间的，你在command1中一点立刻就核查状态，当然是连接中了

Answer 2

关掉杀毒软件，他不会以让你乱侦听端口的。

追问

我试了，不是杀毒软件的问题，服务器端显示建立连接，但是客户端就是一直建立连接但是连接不上