在winsock关闭之前在Visual Basic 6中发送数据？

Question

当我的客户关闭表单或按下停止按钮时，我尝试将数据发送到我的服务器，并且由于某种原因它无法正常工作。

Winsock.SendData "USERLEAVES" & txtUser.Text
Winsock.Close

就像winsock在数据发送之前关闭一样。我该如何解决这个问题？

Answer 1

查看_SendComplete（）事件

例如，使用表单级别boolean：

Option Explicit

Private mblnClosing As Boolean

Private Sub Command1_Click()
  Winsock1.SendData "USERLEAVES" & txtUser.Text
  mblnClosing = True
End Sub

Private Sub Form_Load()
  mblnClosing = False
End Sub

Private Sub Winsock1_SendComplete()
  If mblnClosing Then
    Winsock1.Close
  End If
End Sub