为什么我的Winsock控件在连接之后马上又自己关闭?

Question

我在它的Connect事件中捕获到了它的已经连接的状态7并打印出来,接着要发送数据的时候再做了一次检测,可是这个时候发现它正在关闭连接,请问这是为什么?

Answer 1

winsock不能在connect函数后紧接着senddata的。
应该写在另一个按钮里。
如：
private sub form_load()
  If Me.winsock1.State <> sckClosed Then Me.winsock1.Close
  me.winsock1.connect
end subprivate sub command1_click()
  me.winsock1.senddata(text1.text)
end sub

Answer 2

winsock可以在connect函数后接着send data.
例：
ws.RemoteHost = "dbx"
ws.RemotePort = 9000
ws.Connect
If ws.State = sckConnected Then
    ws.SendData "test"
End If