连接已成功!发送完后Winsock1_SendComplete()已触发。
可服务器端没收到,但是客户端退出去时,服务器端才收到。
Private Sub Command1_Click()
    Winsock1.senddata Text1.Text
End Sub
Private Sub UserControl_Initialize()
    Call iniSet("192.168.0.99", "6633")
End Sub
Private Sub iniSet(remoteIp As String, remotePort As String)
    Winsock1.RemoteHost = remoteIp
    Winsock1.remotePort = remotePort
    Winsock1.Connect
End Sub
Private Sub Winsock1_SendComplete()
    MsgBox "发送已完成!"
End Sub