Code

' Gambas class file
PUBLIC conexion AS Process
PUBLIC Content AS String
PUBLIC area AS String
PUBLIC Content2 AS String

PUBLIC SUB conectar_Click()

conexion = SHELL "ssh -l root 10.144.32.51" FOR READ WRITE

END

PUBLIC SUB Process_Read()

  DIM sLine AS String
  LINE INPUT #conexion, sLine


  Content = Conv((Content & sLine & "\n"), "ISO-8859-1", "UTF-8")
' Content = Content & sLine & "\n"
  area = Content
  TextArea1.Text = area
  PRINT sLine;

END


PUBLIC SUB desconectar_Click()

  conexion.Kill

END


PUBLIC SUB enviar_Click()

Content = " "
TextArea1.Text = " "
PRINT #conexion, TextBox1.Text

END