Question

vb winsock控件重新连接时的问题

当客户端重新连接时就连不上了，为什么啊
模块的一部分
Case "4" '对方断线送的资料
Form1.Label1.Caption = "对方不在线"
Form1.Label1.ForeColor = &H0
'Form1.Winsock1.Close
在form窗体中
'==============================
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Label1.Caption = "对方在线"
Label1.ForeColor = &HFF&
Timer1.Tag = "1"
End Sub

‘============
Private Sub Form_Unload(Cancel As Integer)
If Label1.Caption = "对方在线" Then
Send "4"
DoEvents
End If
Sub End

Answer 1

断开客户端时候，winsock应该也要断开，那样重新连接才可以吧

Answer 2

断开客户端，当然winsock连接也断了，在close事件里重连就好了