EXCEL mswinsck为什么连接成功后马上被关闭?

（司马言义）附源代码： --------------------客户端代码：--BEGIN--------------------------- Public Winsock1 As Object 'Connect Private Sub CommandButton1_Click() Set Winsock1 = CreateObject("mswinsock.winsock") Winsock1.Protocol = sck