.net - 无法使用VB.NET和SSH.NET连接到SSH/SFTP服务器-但是WinSCP和FileZilla可以连接

Question

多年来，以下代码一直有效。然后在4月11日停止。我在Visual Studio中注意到一条警告，指出SSH.NET软件包已过期，因此我更新了该软件包...仍然无法正常工作。

Protected Sub FTPUpload(ByVal fileToBeUploaded As String, uploadedFilename As String)
    Try
        Using sftp As New SftpClient(sFtpServer, sFtpCreditUser, sFtpCreditPW)
            sftp.Connect()
            Dim upFile As Stream = File.OpenRead(fileToBeUploaded)
            sftp.UploadFile(upFile, uploadedFilename)
            upFile.Close()
            sftp.Disconnect()
        End Using
    Catch ex As Exception
        MsgBox(ex.Message & Chr(13) & Chr(10) & uploadedFilename)
    End Try
End Sub 

抛出异常:

Renci.SshNet.Common.SshConnectionException in Renci.SshNet.dll
Renci.SshNet.Common.SshConnectionException: An established connection was aborted by the software in your host machine.
at Renci.SshNet.Session.WaitHandle(WaitHandle waitHandle)
at Renci.SshNet.Session.Connect()
at Renci.SshNet.BaseClient.Connect()
at InvManager.Main.FTPUpload(String fileToBeUploaded, String uploadedFilename) in C:\Data\vb.net\InvManager2.3\InvManager\Main.vb:line 562

已验证凭据在服务器端仍然有效。

FileZilla日志显示从运行主题VB代码的同一Windows框到服务器的SFTP连接:

Status: Connecting to server.com...  
Response: fzSftp started, protocol_version=8  
Command: open "user@server.com" 22  
Command: Pass: ******  
Status: Connected to server.com  
Status: Retrieving directory listing...  
Command: pwd  
Response: Current directory is: "/home/server"  
Command: ls  
Status: Listing directory /home/server  
Status: Directory listing of "/home/server" successful  
Status: Disconnected from server  

希望能获得一些帮助，以使其再次工作。

Answer 1

原始代码再也无法正常工作了...仍然不确定ssh.net发生了什么变化，从而破坏了代码。但是，对于每个@MartinPrikryl，我重新编写了使用WinSCP库而不是SSH.Net的代码，下面的代码使我们重新工作。

Protected Sub WinScpSFTPupload(ByVal fileToBeUploaded As String, uploadedFilename As String)
        Try
            Dim sessionOptions As New SessionOptions
            With sessionOptions
                .Protocol = Protocol.Sftp
                .HostName = sFtpServer
                .UserName = sFtpCreditUser
                .Password = sFtpCreditPW
                .GiveUpSecurityAndAcceptAnySshHostKey = True
            End With
            Using session As New Session
                session.Open(sessionOptions)
                session.PutFiles(fileToBeUploaded, uploadedFilename).Check()
            End Using
        Catch ex As Exception
            MsgBox(ex.Message & Chr(13) & Chr(10) & uploadedFilename)
        End Try
    End Sub ' Sub to WinSCP SFTP File