Allanando el camino a los iniciados en Gambas, porque programar en Gambas es un placer!!
domingo, 2 de junio de 2013
Usando el comando shell
' Gambas class file
'declaración de constantes ya que sudo, cat y pipe
'son comandos que seguramente usaremos mas de una vez
Public Const cat1 As String = " cat"
Public Const sudo1 As String = "sudo"
Public Const pipe1 As String = "|"
Public Sub Form_Open()
Me.center
End
'creamos esta función así nos ahorramos código,
'jeje que algún programador explique como funciona una función
Public Function comandoymodificadores(fvar1 As String, fvar2 As String, fvar3 As String, fvar4 As String, fvar5 As String, fvar6 As String, fvar7 As String, fvar8 As String)
Dim va1, va2, va3, va4, va5, va6, va7, va8, resultado As String
va1 = fvar1
va2 = fvar2
va3 = fvar3
va4 = fvar4
va5 = fvar5
va6 = fvar6
va7 = fvar7
va8 = fvar8
Shell va1 & va2 & va3 & va4 & va5 & va6 & va7 & va8 To resultado
TextArea1.Text = resultado
End
Public Sub btnifconfig_Click()
Dim ifconfig1 As String
ifconfig1 = "ifconfig"
comandoymodificadores(ifconfig1, Null, Null, Null, Null, Null, Null, Null)
End
Public Sub btnuname_Click()
Dim uname1, help1 As String
help1 = " --help"
uname1 = "uname"
comandoymodificadores(uname1, help1, Null, Null, Null, Null, Null, Null)
End
Public Sub btngroup_Click()
Dim group1, help1 As String
group1 = " /etc/group"
comandoymodificadores(sudo1, cat1, group1, Null, Null, Null, Null, Null)
End
Public Sub btnarchivo_Click()
Dim grep1, dir1, nano1, xfile1 As String
TextArea1.Clear
grep1 = "grep"
dir1 = " /proc/meminfo"
nano1 = "nano"
xfile1 = "/home/vector/Escritorio/memtoral.txt"
comandoymodificadores(grep1, cat1, dir1, pipe1, nano1, xfile1, Null, Null)
TextArea1.Text = "Acción ejecutada"
End
Public Sub btnsalir_Click()
Me.Close
End
'Gracias Shell, con tu código pude resolver ( Shell orden & modificador To TextArea1.Text )
Suscribirse a:
Comentarios de la entrada (Atom)
No hay comentarios.:
Publicar un comentario