winsock连接错误的处理？？？？？

Question

当客户端连拉服务器时，如果服务器没有开，就会提示错误码，我想如果连接错误就等候一下，再连接
要如何处理。各位高手请指点
我的连接代码如下
 Csock.Connect
   Do Until csokc.state=7
         Csock.Close
         Err.Clear
         for i=0 to 1000
         next
         Csock.Connect
   Loop

Answer 1

这么连太快了，你可以考虑用一个timer控件再一定时间段去判断SOCK的状态，然后操作是否需要从连例如
Private Sub SockConn()
    If Sock.State <> 7 Then
        If Sock.State <> sckClosed Then
            Sock.Close
        End If
        Sock.RemoteHost = "127.0.0.1"
        Sock.RemotePort = 1234
        Sock.Connect
    End If
End Sub
Private Sub Timer1_Timer()
    SockConn
End Sub