winsock用TCP Connect 联接，咋样知道联接是否成功?

Question

' 建立連縣
with winSmtp
     .RemoteHost = 163.com
     .RemotePort = 25
     .Protocol =sckTCPProtocol
     .connect   
end With
' 接受Server的回應
Private Sub wskSmtp_DataArrival(ByVal bytesTotal As Long)
    dim S_Response as string 
    wskSmtp.GetData S_Response, vbString
end sub
' 此時回應的格式如下﹕
' 220 ....
' 421 ....
知道怎么判斷了吧
開頭是220的是連接成功,421是失敗 
當然我說的是SMTP傳輸協議﹐如果要別的協議連接請參考相關的RFC

Answer 1

控件状态             状态值            描述
SckClosed            0            断开状态
SckOpen              1            断开状态
SckListening         2            监听状态
SckConnectionPending     3        等待连接
SckResolvingHost        4         查找服务器
SckHostResolved         5         找到服务器
SckConnecting           6         正在建立连接 
SckConnected            7         连接成功
SckClosing              8         正在关闭连接
SckError             9            发生错误