不行啊,我想在关闭服务器的时候给对方发一条消息,告诉客户,服务器已经关闭,然后让客户也关闭连接(否则好象客户机一直不知道已经断开了,还显示正常连接,不知道为什么?)
但是我这么做了,在关闭前发送消息给客户,但客户却无法收到信息?为什么?
Private Sub MenuDisconnect_Click()
WinSockCommunication.SendData MessageOffLine '发送离线消息
'这里发送了消息后,客户机却无法收到这条信息,为什么?
WinSockCommunication.Close
End Sub
但是我这么做了,在关闭前发送消息给客户,但客户却无法收到信息?为什么?
Private Sub MenuDisconnect_Click()
WinSockCommunication.SendData MessageOffLine '发送离线消息
'这里发送了消息后,客户机却无法收到这条信息,为什么?
WinSockCommunication.Close
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
winsock1.sendData"DataArrived"
End sub 客户端判断是否未确认字串=========================================
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
winsock2.getdata data
if data="DataArrived" then
其他操作
endif
End Sub
Winsock_Close事件并没有被触发,请教。