如果判断用winsock控件发送邮件超时

Question

如提

Answer 1

譬如说在验证密码的时候，如果密码错误，那么winsock将一直处于connected状态，
但就不返回验证出错的信息。
故怎么用超时来控制

Answer 2

Private Sub Connect() 
       Dim dtStart As Date 
       dtStart = Now() 
       objWinSock.RemoteHost = strServer 
        objWinSock.RemotePort = nPort 
       objWinSock.Connect 
       Do Until bConnected 
       DoEvents 
       If DateDiff("s", dtStart, Now) > 30 Then 
       Err.Raise vbObjectError, "Error", "连接超时" 
       End If 
       Loop 
       End Sub