Renci SSH.NET ShellStream命令返回结果错序截断不完整问题求解

你遇到的三类异常本质是对ShellStream的运行逻辑理解错误：交互式Shell流是无边界的连续字节流，本身不存在「一条命令对应一段独立回显」的分隔机制，你当前采用的「固定500ms延时+单次Read读取」逻辑完全依赖时序巧合，只要设备响应速度和你预设的延时不匹配，就会出问题：

• 读到上一条命令结果：上一次Read没有把流缓冲区里残留的旧回显读干净，新命令发送后，Read会先取到残留的旧内容
• 回显为空：500ms延时到期时，设备还没把任何回显字节传到本地缓冲区，Read直接返回空
• 回显随机截断：500ms延时到期时，设备回显还没传输完成，你只读到了缓冲区里已有的部分，剩余内容会留到下一次读取时返回

核心逻辑是抛弃固定延时盲读的方案，以Shell提示符匹配作为单条命令回显接收完成的判定标准：交换机等用户输入时，回显末尾一定会输出固定格式的提示符（比如<Huawei>、[H3C]、Cisco#），只要读到的内容末尾匹配当前模式下的提示符，就说明当前命令的回显已经全部接收完成。
如果设备支持非交互式命令通道，优先用SshClient.CreateCommand方法执行命令，该模式下每条命令的输出是独立边界的，天然不会出现串流、截断问题；部分厂商交换机做了限制必须使用交互式Shell的场景，按以下逻辑修改代码：

• 连接建立后先清空初始缓冲区，把登录欢迎语、初始提示符全部读干净，避免初始残留影响后续命令
• 每次发送新命令前，先把流里剩余的未读数据全部清空，避免串上一条命令的残留内容
• 发送命令后短间隔轮询读取流内容，持续拼接返回结果，直到检测到回显末尾匹配当前Shell提示符，或者触发超时
• 维护当前模式对应的提示符规则，切换视图（比如从用户视图进入系统视图、配置视图）时同步更新匹配规则
• 检测到分页提示（比如---- More ----）时自动发送翻页指令，继续读取直到匹配提示符

修正后代码 #

' 全局变量：维护当前Shell模式对应的提示符，根据实际连接的设备调整初始值
Private currentPrompt As String = "<Switch>"
' 全局变量：单条命令最长接收超时时间
Private ReadOnly cmdTimeout As TimeSpan = TimeSpan.FromSeconds(15)
Private ci As ConnectionInfo
Private sc As SshClient
Private ss As ShellStream

Public Sub connect(ip As String, un As String, pw As String, port As Integer)
    ci = New ConnectionInfo(ip, port, un, New AuthenticationMethod() {New PasswordAuthenticationMethod(un, pw)})
    sc = New SshClient(ci)
    sc.Connect()
    ' 终端参数按标准串口/SSH终端尺寸设置即可，缓冲区大小不要设置过大
    ss = sc.CreateShellStream("termi", 80, 24, 800, 600, 2048)
    
    ' 清空登录初始缓冲区，直到读到初始提示符
    Dim initialBuf As New StringBuilder()
    Dim waitStart = DateTime.Now
    While DateTime.Now - waitStart < cmdTimeout
        If ss.DataAvailable Then
            initialBuf.Append(ss.Read())
            If initialBuf.ToString().TrimEnd().EndsWith(currentPrompt) Then
                Exit While
            End If
        End If
        Threading.Thread.Sleep(10)
    End While
End Sub

Public Function interact(input As String) As String
    ' 发命令前先清空流内残留数据，避免串上一条命令的回显
    While ss.DataAvailable
        ss.Read()
    End While

    ' 处理连接断开场景
    If Not sc.IsConnected Then
        MessageBox.Show("检测到连接断开，正在重连")
        sc.Connect()
        ' 重连后重复初始缓冲区清空逻辑即可，可抽成独立函数复用
    End If

    ' 发送命令
    ss.WriteLine(input)
    Dim echoBuf As New StringBuilder()
    Dim startTime = DateTime.Now
    Dim receiveComplete As Boolean = False

    ' 循环读取直到匹配提示符或超时
    While DateTime.Now - startTime < cmdTimeout
        If ss.DataAvailable Then
            Dim chunk = ss.Read()
            echoBuf.Append(chunk)
            Dim currentEcho = echoBuf.ToString()
            ' 检测到分页符时自动发送空格翻页，可根据设备实际分页提示调整关键字
            If currentEcho.Contains("---- More ----") Then
                ss.Write(" ")
            End If
            ' 检测到末尾匹配提示符，判定接收完成
            If currentEcho.TrimEnd().EndsWith(currentPrompt) Then
                receiveComplete = True
                Exit While
            End If
        End If
        Threading.Thread.Sleep(10)
    End While

    If Not receiveComplete Then
        Throw New TimeoutException($"命令[{input}]执行超时，未检测到结束提示符")
    End If

    ' 按需裁剪回显：去掉开头的命令本身回显、去掉末尾的提示符，只保留命令输出内容
    Dim fullEcho = echoBuf.ToString()
    Return fullEcho
End Function

注意事项 #

• 执行切换视图的命令后，要同步更新currentPrompt变量为新视图的提示符，否则会触发超时
• 轮询间隔设为10ms即可，不要设过长导致响应慢，也不要无Sleep轮询占满CPU
• 不要使用GoTo做重试逻辑，改用结构化循环实现，避免不可控的逻辑跳转

内容的提问来源于stack exchange，提问作者teslawu