simply like this
vb.net:
' your openssh private key
dim Ppk as string = "-----BEGIN RSA PRIVATE KEY-----" & vbcrlf _
' --------- SSH -------------
dim SSH_Socket As Renci.SshNet.SshClient= New Renci.SshNet.SshClient(<Host>, UserCode, _
if SSH_Socket.isConnected then
..................
endif
' ---------- FTP -------------
dim SFTP_Socket as Renci.SshNet.SftpClient = New Renci.SshNet.SftpClient(<Host>, UserCode, _
if SFTP_Socket.isConnected then
..................
endif
Hopes this will help
vb.net:
' your openssh private key
dim Ppk as string = "-----BEGIN RSA PRIVATE KEY-----" & vbcrlf _
& ...................................................... & vbcrlf _
& "-----END RSA PRIVATE KEY-----"
dim UserCode as string' --------- SSH -------------
dim SSH_Socket As Renci.SshNet.SshClient= New Renci.SshNet.SshClient(<Host>, UserCode, _
New Renci.SshNet.PrivateKeyFile(New MemoryStream(Encoding.Default.GetBytes(Ppk))))
SSH_Socket.Connect()if SSH_Socket.isConnected then
..................
endif
' ---------- FTP -------------
dim SFTP_Socket as Renci.SshNet.SftpClient = New Renci.SshNet.SftpClient(<Host>, UserCode, _
New Renci.SshNet.PrivateKeyFile(New MemoryStream(Encoding.Default.GetBytes(Ppk))))
SFTP_Socket .Connect()if SFTP_Socket.isConnected then
..................
endif
Hopes this will help