Question

我要在一台电脑上同时运行客户端和服务器端，使用VB和Winsock控件编程的，怎么实现啊？

我要在一台电脑上同时运行客户端和服务器端，使用VB和Winsock控件编程的，怎么实现啊？我同时运行系统报错“地址正在使用”。求高人指点！！！

Answer 1

'客户端.winsock=cli command2 text2
Private Sub cli_DataArrival(ByVal bytesTotal As Long)
Dim abc As String
cli.GetData abc
Text2.Text = Text2.Text & Chr(10) + Chr(13) & abc
End Sub

Private Sub Command2_Click()
cli.SendData Text1.Text
End Sub

Private Sub Form_Load()
cli.RemoteHost = "192.168.0.1"
cli.RemotePort = 555
cli.LocalPort = 556
cli.Connect
End Sub

' 服务器端.winsock=ser command1 text2
Private Sub Form_Load()
ser.LocalPort = 555
ser.RemotePort = 556
ser.Listen
End Sub

Private Sub Command1_Click()
ser.SendData Text1.Text
End Sub

Private Sub ser_ConnectionRequest(ByVal requestID As Long)
If ser.State <> 0 Then ser.Close
ser.Accept requestID
End Sub

Private Sub ser_DataArrival(ByVal bytesTotal As Long)
Dim abc As String
ser.GetData abc
Text2.Text = Text2.Text & Chr(10) + Chr(13) ' & abc
End Sub

sckAddressInUse 10048 地址在使用中。 关闭客户端，等几分钟再开就得了.
正常关闭，先关服务器端，再关客户端，就不会出现这问题。出现了就 关闭客户端，等几分钟再开就得了

sckOutOfMemory 7 内存不足
sckInvalidPropertyValue 380 属性值无效。
sckGetNotSupported 394 属性不可读。
sckSetNotSupported 383 属性是只读的。
sckBadState 40006 所请求的事务或请求本身的错误协议或者错误连接状态。
sckInvalidArg 40014 传递给函数的参数格式不确定，或者不在指定范围内。
sckSuccess 40017 成功。
sckUnsupported 40018 不受支持的变量类型。
sckInvalidOp 40020 在当前状态下的无效操作
sckOutOfRange 40021 参数越界。
sckWrongProtocol 40026 所请求的事务或请求本身的错误协议
sckOpCanceled 1004 取消操作。
sckInvalidArgument 10014 所请求的地址是广播地址，但未设置标记。
sckWouldBlock 10035 套接字不成块，而指定操作将使之成块。
sckInProgress 10036 制造块的 Winsock 操作在进行之中。
sckAlreadyComplete 10037 完成操作。未进行制造块的操作。
sckNotSocket 10038 描述符不是套接字。
sckMsgTooBig 10040 数据报太大，不适于缓冲区的要求，因而被截断。
sckPortNotSupported 10043 不支持指定的端口。
sckAddressInUse 10048 地址在使用中。
sckAddressNotAvailable 10049 来自本地机器的不可用地址。
sckNetworkSubsystemFailed 10050 网络子系统失败。
sckNetworkUnreachable 10051 此时不能从主机到达网络。
sckNetReset 10052 在设置 SO_KEEPALIVE 时连接超时。
sckConnectAborted 11053 由于超时或者其它失败而中止连接。
sckConnectionReset 10054 通过远端重新设置连接。
sckNoBufferSpace 10055 没有可用的缓冲空间。
sckAlreadyConnected 10056 已连接套接字。
sckNotConnected 10057 未连接套接字。
sckSocketShutdown 10058 已关闭套接字。
sckTimedout 10060 已关闭套接字。
sckConnectionRefused 10061 强行拒绝连接。
sckNotInitialized 10093 应首先调用 WinsockInit。
sckHostNotFound 11001 授权应答：未找到主机。
sckHostNotFoundTryAgain 11002 非授权应答：未找到主机。
sckNonRecoverableError 11003 不可恢复的错误。
sckNoData 11004 无效名，对所请求的类型无数据记录。

State 属性的设置值是：

常数 值 描述
sckClosed 0 缺省的。关闭
sckOpen 1 打开
sckListening 2 侦听
sckConnectionPending 3 连接挂起
sckResolvingHost 4 识别主机
sckHostResolved 5 已识别主机
sckConnecting 6 正在连接
sckConnected 7 已连接
sckClosing 8 同级人员正在关闭连接
sckError 9 错误