No.6

2台電腦要透過SERVER溝通，需3個winsock連線

由一個來LISTEN另外2個去接受連線

程式部分擷取

接受連線

Dim i As Integer

For i = 0 To 1

If Winsock1(i).State = sckClosed Then

Winsock1(i).Accept requestID'自動接受Clinet連線

Exit For

End If

Next

cmdSend(0).Enabled = True

轉傳資料

  Dim strData As String 

  Winsock1(Index).GetData strData, vbString'把Winsock1(Index)所接收的放到strData

  txtReceived.Text = strData

  

  If Index = 1 Then '判斷是由哪個Winsock1(Index)收到再由另一個Winsock1(Index)送出資料

  Winsock1(0).SendData txtReceived.Text

  End If

   If Index = 2 Then

  Winsock1(1).SendData txtReceived.Text

  End If