vb6下winsock编程时跳出来说实时错误40020是怎么回事？

Question

设定好本地端口、远程端口，绑定后，在执行winsock.connect，出现当前操作状态无效，实时错误40020。请问是怎么回事啊？急~

Answer 1

if winsock.state<>0 then winsock.close
然后再winsock.connect试试看

Answer 2

这是按钮下的部分代码：
If sockDevice.State <> sckClosed Then
    sockDevice.Close
Else
    sockDevice.RemoteHost = txtDeviceIP.Text
    sockDevice.Bind
    sockDevice.Connect‘执行到这句就出现问题了。我也调试过，在这个时候，winsock的状态是0

Answer 3

Bind 方法
      指定用于 TCP 连接的 LocalPort 和 LocalIP。如果有多协议适配卡，就用这个方法。语法object.Bind LocalPort, LocalIPBind 方法的语法包含下面部分部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
LocalPort 用来建立连接的端口。 
LocalIP 用来建立连接的本地 Internet 地址。 
说明在调用 Listen 方法之前必须调用 Bind 方法。sockDevice.RemoteHost = txtDeviceIP.Text
sockDevice.RemotePort=?
sockDevice.Bind '删除这句
sockDevice.Connect