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