hola tengo un problema con el EXEC la cuestión es que lo ejecuto y el proceso ni se incia.
Os adjunto el código a ver si alguien me puede ayudar
Gracias
Saludos
Juanlu
PRIVATE Sshproceso AS Process
PUBLIC SUB Process_Read()
DIM sLine AS String
LINE INPUT #Sshproceso, sLine
Resultado.Text &= sLine
END
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB mini_Click()
IF mini.y = 245 THEN
mini.y = 63
mini.Caption = "Versión extendida" & sesion.text
FMain.Border = 2
FMain.Height = 84
FMain.Border = 1
ELSE
mini.y = 245
mini.caption = "versión mini"
FMain.Border = 2
FMain.Height = 266
FMain.Border = 1
END IF
END
PUBLIC SUB conectar_Click()
Sshproceso = EXEC ["ssh", "localhost", "-Y"] FOR READ WRITE
Timer1.Enabled = TRUE
END
PUBLIC SUB Button3_Click()
PRINT #Sshproceso, "Irinaeva293"
END
PUBLIC SUB Button1_Click()
PRINT #Sshproceso, "dolphin"
END
PUBLIC SUB Timer1_Timer()
IF Sshproceso.State = Process.Running THEN
conectar.Text = "ejecutando proceso"
END IF
END
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
