help - winsock error #40006

[Клим]

начал писать чат с использованием winsock.
При отправке данных появляется ошибка №40006,
Описание:Wrong protocol or connection state for the requested transaction or request.
уже не знаю че делать.
Думал у меня ошибка в коде, попробовал использовать другие чаты на вб с винсоком-та же ошибка.

[gaidar]

Код с студию, пожалуйста

[Клим]

Да любой простой код с использованием винсока.
Ну например:

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

Private Sub Command2_Click()
ws1.Close
ws1.Connect ip.Text, "234"
ws1.SendData "[nick]" & nick.Text
end sub


на 3-ей строке происходит ошибка, которую я уже описывал[/code]

[ANDLL]

Перед третье строкой:

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

dim strt as long
strt = GetTickCount
Do Until WinSock.State = 7
    DoEvents
    If GetTickCount > strt + 1500 Then
        WinSock.Close
        MsgBox "Can't connect", vbCritical
        Exit Sub
    End If
Loop
'Здесь третья строка.


P.S. Процедуру GetTickCount естественно нужно объявить.

[Клим]

tnx,я попробую!