1:winsock 監聽時,通過DataArrival方法獲取請求,然后SendData 發送.

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
'為進入的數據聲明一個變量。
'調用 GetData 方法，并將數據賦予名為 txtOutput 的 TextBox 的 Text 屬性。
Dim strData As String
tcpserver.GetData strData
txtOutput.Text = strData

tcpserver.SendData strData
End Sub

2:MapPost.java 中調用