java与vb socket 自动更新_请教高手：VB-winsock服务端向java客户端SendData问题

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

请教高手：VB-winsock服务端向java客户端SendData问题

VB-winsock服务端，向java客户端SendData发不过去，但是Winsock1.Close之后，java客户端却收到了。

java客户端是采用socket与VB服务端建立tcp连接的。

请问如何解决？

Private Sub Form_Load()

Command1.Caption = "开启服务"

Command2.Caption = "发送消息"

Command3.Caption = "断开连接"

Command2.Enabled = False

Command3.Enabled = False

Text1.text=""

End Sub

Private Sub Command1_Click()*开启服务

Winsock1.LocalPort = 5678

Winsock1.Listen

Command1.Enabled = False

Command2.Enabled = True

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)*接受连接请求

If Winsock1.State <> sckClosed Then

Winsock1.Close

Winsock1.Accept requestID

End If

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)*接收消息

Dim tmpStr As String

Winsock1.GetData tmpStr

Text1.Text = tmpStr

Command3.Enabled = True

End Sub

Private Sub Command2_Click() *发送消息

Winsock1.SendData "Hello!"

DoEvents

End Sub

Private Sub Command3_Click()*断开连接

If Winsock1.State <> sckClosed Then Winsock1.Close

End Sub