vbs中支持mswinsck.ocx控件的事件

Option Explicit Const sckClosed = 0 '缺省值，关闭 Const sckOpen = 1 '打开 Const sckListening = 2 '侦听 Const sckConnectionPending = 3 '连接挂起 Const sckResolvingHost = 4 '识别主机 Const sckHostResolved = 5 '已识别主机 Const sckConnecting = 6 '正在连接 Const sckConnected = 7 '已连接 Const sckClosing = 8 '同级人员正在关闭连接 Const sckError = 9 '错误 'Error Number defines Const sckOutOfMemory = 7 '内存不足 Const sckInvalidPropertyValue = 380 '属性值无效。 Const sckGetNotSupported = 394 '属性不可读。 Const sckSetNotSupported = 383 '属性是只读的。 Const sckBadState = 40006 '所请求的事务或请求本身的错误协议或者错误连接状态。 Const sckInvalidArg = 40014 '传递给函数的参数格式不确定，或者不在指定范围内。 Const sckSuccess = 40017 '成功。 Const sckUnsupported = 40018 '不受支持的变量类型。 Const sckInvalidOp = 40020 '在当前状态下的无效操作 Const sckOutOfRange = 40021 '参数越界。 Const sckWrongProtocol = 40026 '所请求的事务或请求本身的错误协议 Const sckOpCanceled = 1004 '取消操作。 Const sckInvalidArgument = 10014 '所请求的地址是广播地址，但未设置标记。 Const sckWouldBlock = 10035 '套接字不成块，而指定操作将使之成块。 Const sckInPro