Question

VB中的winsock控件的问题!!

当连接成功的时候会弹出提示

Private Sub Client_Connect()
MsgBox "连接成功!"
End Sub

如果无法连接 或者延迟 怎样提示???
并且提示完毕后 所有状态恢复到刚启动程序时的状态

Answer 1

最简单的方法，使用一个定时器，定时检查winsock.state
'winsock 状态常数
'sckClosed 0 关闭状态
'sckOpen 1 打开状态
'sckListening 2 侦听状态
'sckConnectionPending 3 连接挂起
'sckResolvingHost 4 解析域名
'sckHostResolved 5 已识别主机
'sckConnecting 6 正在连接
'sckConnected 7 已连接
'sckClosing 8 同级人员正在关闭连接
'sckError 9 错误
你指的恢复是什么？关闭吗？那使用CLOSE就可以了