我没有用过winsock写过软件。
下面这个也许对你有用：  http://topic.csdn.net/t/20011212/20/417734.html

Winsock1.Close 之后添加一个SLEEP或用EVENT内核对象等待winsock断开连接后在重连

引用 2 楼 bdzwj 的回复:

Winsock1.Close 之后添加一个SLEEP或用EVENT内核对象等待winsock断开连接后在重连 

赞成楼上的

Do While Winsock1.State = sckConnecting 
                DoEvents 
            Loop 

这在代码中添加了，但是任然有问题，我试过了。

这样不行的，要每个客户端建立一个连接

服务器端：

Option Explicit

Dim intMax As Long

Private Sub Form_Load()

    intMax = 0

    Winsock1(0).Protocol = sckTCPProtocol

    Winsock1(0).LocalPort = 8888

    Winsock1(0).Listen

End Sub



Private Sub Winsock1_ConnectionRequest(index As Integer, ByVal requestID As Long)

Dim i As Long

For i = 1 To intMax

    If Winsock1(i).State = 0 Then

        Exit For

    End If

Next i

If i > intMax Then

    intMax = intMax + 1

    Load Winsock1(intMax)

End If

Winsock1(i).Accept requestID

End Sub

客户端大体代码如下：

Option Explicit

Dim blnCon As Boolean



Private Sub Form_Load()

    Winsock1.Protocol = sckTCPProtocol

    Winsock1.RemoteHost = "*.*.*.*"

    Winsock1.RemotePort = 1010

End Sub



Private Sub Timer1_Timer()

If blnCon = False Then

    If Winsock1.State = 0 Then

        Winsock1.Connect

    ElseIf Winsock1.State = 7 Then

        '发送处理代码

        blnCon = True

    Else

        Winsock1.Close

    End If

End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

'事件处理代码

End Sub

Winsock1_ConnectionRequest

这个函数什么时候调用？或者在哪里调用？我的函数每次是在执行    Winsock1.SendData "OFF"  或者Winsock1.Connect 的时候出现错误
            
  

服务器端一个Winsock肯定是不行的，必须要自行设计一个Winsock连接池才能解决1台服务器对多个客户端的通信问题，否则用Winsock控件是实现不了多客户端通讯的。

客户端发起 Connect 请求，服务端就有 ConnectionRequest 事件，你必须用一个空闲的 Winsock 控件进行 Accept，才能开始一对一通讯。

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)

    Dim i           As Long

    

    i = Winsock1.UBound + 1

    Load Winsock1(i)

    Winsock1(i).Accept requestID

    Debug.Print "Accept(" & requestID & ") : " & Winsock1(i).RemoteHostIP

End Sub

    我可能没有说明白，“我所说的客户端”实际按照Winsock服务器端写的代码，负责接收“我所说的服务器”发的消息，不停接收消息，收到消息后处理按照消息内容执行相关处理。
    “我所说的服务器”实际按照Winsock客户端写的代码，只是在循环里面按照数据库中的内容给各个 Winsock服务器端 发消息，这样写主要是为了稳定。现在的问题是Winsock客户端发送消息的部分在'Winsock1.Connect 之后，执行Winsock1.SendData "OFF" 时，出现了问题。我不知道这样的问题怎么处理，我的Winsock客户端的代码怎么处理？
            

发起 Connect 的是客户端，进行 Listen 的（响应 ConnectionRequest 事件）的是服务端。
连接成功后，建立的通道是双向的，除了客户端（发起 Connect）的 WinSocket 控件可以 SendData，服务端要反馈信息可以直接用（执行了 Accept 的）WinSocket 控件进行 SendData，不需要反向进行 Connect 请求。
单独一个 WinSocket 不要同时做 Connect 和 Listen，如果程序要同时实现客户端和服务端，就用多个 WinSocket 实现。

Winsock服务器端的代码是这么写的

Private Sub setPortCmd_Click()
    Winsock1.Close
    Winsock1.LocalPort = PortNumber.Text '设置默认端口号
    Winsock1.Listen '监听端口
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   Winsock2.Accept requestID  '响应Socket连接    
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim redata As String
    Winsock2.GetData redata, vbString '取得指令
    SetMonitor redata  '根据指令设置显示器
    Winsock2.Close '关闭Socket连接
End Sub

在你的服务器端需要用控件组来实现。建立动态控件组试试

你只用了一个Winsock2来响应客户机的连接请求，所以你的代码最多只能有一台客户机进行连接，不能实现多客户机连接。

引用 14 楼 free1688 的回复:

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) 
    Dim redata As String 
    Winsock2.GetData redata, vbString '取得指令 
    SetMonitor redata  '根据指令设置显示器 
    Winsock2.Close '关闭Socket连接 
End Sub

你上面那段代码在Winsock2收到客户机的数据后就执行了Winsock2.Close，Close以后客户机与服务器的连接中断，服务器就不能再将任何消息发送至客户机，也不能从客户机接收任何消息。

你还是仔细看看5、6、7、10、12楼的回复吧！

飘过.

学习

大家有一个实例吗？一个客户端对应多个服务器端的代码实例？

这是服务器端代码：
Option Explicit
Public LastState As Integer
Private Exitflag As Boolean
'Dim intMax As Long

Private Sub ExitCmd_Click()
    Dim isok
    isok = MsgBox("退出后将不能接收服务器消息, 是否要退出程序? ", vbYesNo, "是否退出程序")
    If isok = vbYes Then
        Exitflag = True
        Unload Me
    End If
End Sub

Private Sub Form_Load()
    Dim 现在时间 As Date
    Me.Visible = False '隐藏窗体
    PortNumber.Text = 8888 '设置默认端口号
    Winsock1.LocalPort = PortNumber.Text '设置默认端口号
    Winsock1.Listen '监听端口
    If WindowState = vbMinimized Then
        LastState = vbNormal
    Else
        LastState = WindowState
    End If
    
    
    AddToStock Me, sysmenu '添加托盘
    SetStockTip "点击可以打开窗体设置连接端口" '添加托盘提示
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If Exitflag Then
        RemoveFromStock
    Else
        Me.Visible = False
        Cancel = True
    End If
End Sub


Private Sub menuExit_Click()
    Call ExitCmd_Click
End Sub


Private Sub setPortCmd_Click()
    Winsock1.Close
    Winsock1.LocalPort = PortNumber.Text '设置默认端口号
    Winsock1.Listen '监听端口
End Sub

Private Sub Winsock1_Close()
    Winsock1.Close
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock2.Accept requestID  '响应Socket连接
End Sub



Private Sub Winsock2_Close()
    Winsock2.Close
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Dim redata As String
    Winsock2.GetData redata, vbString '取得指令
    SetMonitor redata  '根据指令设置
    Winsock2.Close '关闭Socket连接
End Sub

Public Sub SetMonitor(data As String)
    If data = "ON" Then '判断指令
        MonitorOn Me          
    ElseIf data = "OFF" Then '判断指令
        MonitorOff Me     End If
End Sub

客户端代码可能有问题，现在的问题是只有一个客户端，需要与多个服务器端定时通信通信，怎么实现呢？

帮你顶一下，你可以换换思路，用另外的新的控件来实现。我见过一个新的控件，可以实现你的功能，你上网找找。

SocketMaster.ocx你用这个控件去试试吧。

使用UDP行不?

谢谢大家的解答，问题已经解决了。admincj的帮助下取得了一个新的控件，可以发送消息。改了一下我的代码，其实就是2行代码，加到合适的位置上就可以解决问题。现在散分。