Прием команд через Windows Telnet

[extHack]

Проблема такая. Реализовал сервер через Winsock, хочу чтобы он
принимал команды через стандартный Windows Telnet. Только данные
с Telnet'a принимаются побайтно. Как сформировать полную команду
после chr(13) или после Enter'a

[Jenizix]

Хм... ну например все принятые байты дописывать в строку и при получении Ентера уже парсить строку...

[Jenizix]

Вот пример:

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

Dim cmd As String ' тут будет храниться строка...

Private Sub Form_Load()
    ws.LocalPort = 31337
    ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
    If ws.State <> sckClosed Then ws.Close
    ws.Accept requestID
    ws.SendData "You are Welcome!" & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim data As String

    ws.GetData data

    If data <> vbCrLf Then
        cmd = cmd & data
    Else
        MsgBox "String: " & cmd ' тут уже работаешь со строкой...
    End If
End Sub

Главное не забудь после разбора строки ее обнулить!

[Jenizix]

Ну что, помогло???

[extHack]

Да, спасибо. Все работает