Run-time error: 40006. Помогите исправить.

[Citius]

Run-time error: 40006
"Wrong protocol or connection state for the requested transaction or request"

Англ. немного знаю. Суть ошибки понял, но не пойму откуда она берется и как её исправить. C Socket'ами столкнулся впервые.

Код: Выделить всё

Private Sub Form_Load()
    wnsServer.LocalPort = 1001
    wnsServer.Listen
End Sub

Private Sub txtSendData_Change()
    wnsServer.SendData txtSendData.Text '- здесь возникает ошибка
End Sub

Private Sub wnsServer_ConnectionRequest(ByVal requestID As Long)
    If wnsServer.State <> sckClosed Then wnsServer.Close
    wnsServer.Accept requestID
End Sub

Private Sub wnsServer_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    wnsServer.GetData strData
    txtOutput.Text = strData
End Sub

[Twister]

Проверяй wnsServer.State.
Ты пытаешься отправить данные по закрытому сокету.

[Citius]

Блин все равно если я даже не закрываю соединение, та же ошибка возникает!

Код: Выделить всё

Private Sub Form_Load()
    wnsServer.LocalPort = 1001
    wnsServer.Listen
End Sub

Private Sub txtSendData_Change()
    wnsServer.SendData txtSendData.Text '- здесь возникает ошибка
End Sub

Private Sub wnsServer_ConnectionRequest(ByVal requestID As Long)
    wnsServer.Accept requestID
End Sub

Private Sub wnsServer_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    wnsServer.GetData strData
    txtOutput.Text = strData
End Sub

[Twister]

По хорошему нужно создать массив Winsock'ов.
Один слушает и цепляет соединения на другие.
Возможно по этому и происходит конфликт.
Но ты все же попробуй проверять

Код: Выделить всё

Private Sub txtSendData_Change()
    If wnsServer.State <> sckConnected Then Exit Sub
    wnsServer.SendData txtSendData.Text
End Sub

[alibek]

Попробуй в Form_Load в самом начале добавить wnsServer.LocalPort=0.