一、以下代碼
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
On Error GoTo Errc
ServerSock1 (0).Accept requestID
ServerSock1 (1).Accept requestID
Exit Sub
Errc:
MsgBox Err.Description & " id:" & Err.Number & " SOURCE:" & Err.Source
End Sub
為什么一個客戶端的CONNECT請求被ServerSock1(0) 接收（Accept）后，ServerSock1 (1).Accept還可以正常執行？
二、 以上代碼執行后，在服務器端發送訊息
Private Sub Command1_Click()
ServerSock1 (0).SendData " 訊息來自(0)"
End Sub
Private Sub Command2_Click()
ServerSock1 (1).SendData " 訊息來自(1)"
End Sub
客戶端接收代碼
Private Sub CLientSock_DataArrival(ByVal bytesTotal As Long)
Dim S As String
CLientSock.GetData S
End Sub
Command1_ Click 執行后 CLientSock _DataArrival未接收到訊息
Command2_ Click 執行后 CLientSock_DataArrival 接收到訊息
為什么ServerSock1 (0) 發的訊息，客戶端 沒有接收到？
uj5u.com熱心網友回復：
其實就是覆寫。真正起效的只有后 Accept 的 ServerSock1(1)。從功能上來說，兩次 Accept 屬于錯誤代碼。
uj5u.com熱心網友回復：
非常感謝。有點不明白，
1、你所說的 兩次 Accept 屬于錯誤代碼，是指 第二次 Accept 屬于錯誤代碼，也就是說
ServerSock1 (0).Accept requestID
ServerSock1 (1).Accept requestID
這兩句 都 是錯誤代碼，還是說
只有ServerSock1 (1).Accept requestID是錯誤代碼
2、既然 是錯誤代碼，為什么還能正常執行。
uj5u.com熱心網友回復：
有償提供商業專案使用十多年的VB6呼叫WinSock控制元件的例子。[email protected]uj5u.com熱心網友回復：
編碼思路“錯誤”——編碼不正常。正常代碼是不會寫兩次 Accept 的。
uj5u.com熱心網友回復：
非常感謝。你的商業原始碼，多少錢呀。有沒有VB6版的微信或支付寶 支付的代碼，這個急需。可直接聯系我求求：衣玖捌撒捌撒衣00捌。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/62449.html
標籤：網絡編程
上一篇：服務器端的WINSOCKET 控制元件 在 接收客戶端對應的控制元件發出的CLOSE訊息后，為什么服務器端WINSOCKET控制元件的CLOSE事件會被反復執行
下一篇：SStab中選項卡間資料的呼叫