该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
请教高手: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