说明.txt

winsock java 连接 vb 进行通讯

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 中调用