Problem with ssh renci

Question

0.00/5 (No votes)

See more:

Hello

I need to execute a command more than one times, so i have a problem in my VB.NET loop code:

client.Connect()
Dim cmd As SshCommand
Dim result As String
cmd = client.CreateCommand("comand")

For i As Integer = 1 To 10
rezultat = cmd.Execute()
msgBox(rezultat)
Next

client.disconnect()

I figure that this command cmd.execute disconect me, so one solution is to put client.connect but I think it is not effective.

Can you help me, please....

Posted 20-Mar-14 23:19pm

Amel Alić

Updated 21-Mar-14 0:30am

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

sohail awr · Answer 1 · 2014-03-21T04:26:00

Solution 1

This is a SQL Client connectivity. So you can take an Idea of reader and implement according SshCommand.

VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If oCn.State = ConnectionState.Closed Then
            oCn.Open()
        End If

        Dim oRead As SqlClient.SqlDataReader = Nothing

        Dim cmd As New SqlClient.SqlCommand("SELECT * from mst_scheme", oCn)

        Try
            oRead = cmd.ExecuteReader
            If oRead.HasRows Then
                While oRead.Read()
                    MsgBox(oRead(0))
                End While
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            oRead.Close()
            oCn.Close()
        End Try

    End Sub
End Class

Posted 21-Mar-14 4:26am

sohail awr

Comments

Amel Alić 24-Mar-14 10:59am

I used this logic and tried but it does not work. Maybe is it problem because I make this application for CMTS.

Here is all code:

Imports Renci.SshNet

Public Class Form2

Public client As New SshClient("192.168.1.100", "root" , "admin")

Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
client.Disconnect()
Form1.Close()
End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
client.Connect()
End Sub

Private Sub komanda_TextChanged(sender As Object, e As EventArgs) Handles komanda.TextChanged
AcceptButton = izvrsi 'this is button's name
End Sub

Private Sub izvrsi_Click(sender As Object, e As EventArgs) Handles izvrsi.Click
If komanda.Text <> "" Then 'I have textbox (name:komanda) where i write command

Dim cmd As SshCommand
Dim result As String
cmd = client.CreateCommand(komanda.Text)
For i As Integer = 1 To 100

result = cmd.Execute()
resultText.Text = resultText.Text + result
' resultTExt is textbox
'MsgBox(result)

Next
Else
MsgBox("Write command")
End If
End Sub

End Class

When I put in loop 1 to 1 it's work but 1 to many doen't