Bonjours à tous,

J'aimerai créer un Terminal SSH en VB.NET

J'ai Créer une class SSH et y est ajouter la référence vers "SSH.NET .NET 4.0" ou plus simplement "Renci.SshNet"

Mon problème est que de cette manière dans certain cas je n'est pas de réponse ou des commande ne s’exécute pas comme par exemple :

la commande "ls -l" sur Raspberry Fonctionne mais la commande "cd dossier" ne retourne aucune réponse donc j'aimerais savoir si il y a une solution pour obtenir une réponse serveur à coup sur sachant que je communique avec un raspberry

La Class

Imports Renci.SshNet
Public Class maclassessh
    Private _Adresse_Serveur As String = ""
    Private _Utilisateur_SSH As String = ""
    Private _MDP_SSH As String = ""
    Private _Port_Serveur As Integer = 0

    Private _SSHClient As SshClient

    Private _Message_Erreur As String = ""

    Sub New()

    End Sub

    Sub New(ByVal Adresse_Serveur As String, ByVal Utilisateur_SSH As String, ByVal MDP_SSH As String, Optional ByVal Port_Serveur As Integer = 22)
        Me.New
        _Adresse_Serveur = Adresse_Serveur
        _Utilisateur_SSH = Utilisateur_SSH
        _MDP_SSH = MDP_SSH
        _Port_Serveur = Port_Serveur
    End Sub

    Public Function Init() As Boolean
        Dim InfoConnexion As PasswordConnectionInfo
        Try
            InfoConnexion = New PasswordConnectionInfo(_Adresse_Serveur, _Port_Serveur, _Utilisateur_SSH, _MDP_SSH)
            _SSHClient = New SshClient(InfoConnexion)
            _SSHClient.Connect()
            Return True
        Catch ex As Exception
            _Message_Erreur = ex.Message
            Return False
        End Try
    End Function

    Public Function Erreur() As String
        Return _Message_Erreur
    End Function

    Public Sub Conection()
        _SSHClient.Connect()
    End Sub
    Public Sub Deconnection()
        _SSHClient.Disconnect()
    End Sub

    Public Function Requete(ByVal Commande As String) As String
        Dim Requeteur As SshCommand
        Try
            Requeteur = _SSHClient.RunCommand(Commande)
            Return Requeteur.Result
        Catch ex As Exception
            Return ex.Message
        End Try

        'cmdnumber.Result.Replace(Microsoft.VisualBasic.Constants.vbLf, Microsoft.VisualBasic.Constants.vbNewline) 'Remplacer newline linux par new line windows
        'Return _SSHClient.CreateCommand(Commande).Execute()
    End Function

    Public Function Etat() As String
        Return _SSHClient.IsConnected
    End Function
End Class

Et si possible une explication sur la Sécurité ce qui doit être le Shell je suppose 

-
Edité par Thomas_59 16 janvier 2020 à 16:15:50