Проблема с CSocket

[xqz_me]

Добрый вечер! Для обмена данными с удалённым устройством я использую класс CSocket. Комманды, посылаемые из программы нормально доходят и исполняются на этом устройстве, однако мне не получается получить ответ. Причём, если отмониторить соединение программой WireShark, то видно, что ответ с устройства идёт. Что можно попробовать в такой ситуации?

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

Dim WithEvents Socket As CSocket

Private Sub Socket_OnConnect()
   Socket.SendData "Test"
End Sub

Private Sub Command1_Click()
   Set Socket = New CSocket
   Socket.Connect "xxx.xxx.xxx.xxx", 1234
End Sub

Private Sub Socket_OnDataArrival(ByVal bytesTotal As Long)
   MsgBox "Wow!"
End Sub

[Хакер]

Вообще, мне интересно, сколько экземпляров аттачей CSocket-а уже есть на форуме. Наверное, около сотни.

[xqz_me]

Извините, но ап. Очень надо.

Попробовал ещё юзер-контрол "тяга" - та же история. А с винсоком работает. Но мне нужен пример без ocx и сторонних dll. Можете что-нибудь подсказать?

[Хакер]

Как тебе вариант: Написать свой, предварительно изучив NetAPI?

[xqz_me]

Абсолютно никак. Кстати это был глюк, в скомпилённой проге всё работало, а из-по IDE нет. Всем "откликнувшимся" спасибо, и вам того же.