Tachira
v3ctor escribió: [Ver mensaje]jousseph escribió: [Ver mensaje]v3ctor escribió: [Ver mensaje][quote user="jousseph" post="32350"] experimentar con los ejemplos de consola en gambas.[/quote]
no tengo claro cuales son..
podrías enumerarlos acá?
V3ctor mi consola la desarrolle desde el gambas 3.1 y ahorita noto que el gambas moderno trae las cosas diferentes busca en la famosa granja si esta la consola de comandos si no te perdiste algo valioso.
lo he recuperado primero descargar los ejemplos viejos ver imagen
segundo ir a ver imagen
' gambas class file
Private $hProcess As Process
Private $sText As String
Static Public Sub Main()
Dim hForm As Form
hForm = New FConsole
hForm.Show
End
Public Sub _new()
$hProcess = Exec ["bash", "--noediting"] For Input Output As "Process"
End
Public Sub Form_Close()
$hProcess.Kill
End
Public Sub Process_Read()
Dim sStr As String
'Debug Eof(Last);; Lof(Last);;
'While Not sStr
Read #$hProcess, sStr, -256
'Wend
'Error sStr
$sText = $sText & sStr
'Debug Quote(sStr)
UpdateConsole
End
Public Sub Process_Error(sStr As String)
$sText = $sText & sStr
UpdateConsole
End
Private Sub UpdateConsole()
Dim iPos As Integer
Dim sStr As String
While Len($sText)
iPos = InStr($sText, "\n")
If iPos = 0 Then iPos = Len($sText)
sStr = Normalize(Left$($sText, iPos))
'Debug sStr
$sText = Mid$($sText, iPos + 1)
txtConsole.Pos = txtConsole.Length
txtConsole.Insert(sStr)
Wend
End
Public Sub Process_Kill()
'hProcess = NULL
Try Me.Close
End
Public Sub txtCommand_Activate()
Dim sLig As String
sLig = txtCommand.Text & gb.NewLine
'txtConsole.Pos = txtConsole.Length
'txtConsole.Insert("# " & sLig)
txtCommand.Clear
sLig = Conv$(sLig, Desktop.Charset, System.Charset)
Print #$hProcess, sLig;
End
Static Private Function Normalize(sStr As String) As String
Dim sNorm As String
Dim iInd As Integer
Dim iCar As Integer
Dim bEsc As Boolean
' For iInd = 1 To Len(sStr)
'
' iCar = Asc(sStr, iInd)
'
' If iCar = 27 Then
' bEsc = True
' Continue
' Endif
'
' If bEsc Then
' If iCar < 32 Then bEsc = False
' Continue
' Endif
'
' If iCar < 32 And iCar <> 10 Then iCar = 32
'
' sNorm = sNorm & Chr$(iCar)
'
' Next
sNorm = sStr
If System.Charset = Desktop.Charset Then
Return sNorm
Else
Return Conv$(sNorm, System.Charset, Desktop.Charset)
Endif
End
Public Sub Form_Open()
txtCommand.SetFocus
End
Public Sub btnCtrlC_Click()
Print #$hProcess, Chr$(3);
End
Public Sub btnCtrlD_Click()
Print #$hProcess, Chr$(4);
End
Public Sub btnCtrlZ_Click()
Print #$hProcess, Chr$(26);
End
Perfecto alli esta la conexion con el bash, para muchos espero les interese, esto tiene muchas sorpresitas brillantes algunos ya lo saben otros que ni se lo imaginan, con eso he logrado hasta asesinar todos los procesos del sistema sin ser superusuario y agregar ejecuciones con un click sin comandos, suerte, espero termines con exito tu proyecto, saludos.
