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 )



No hay comentarios.:

Publicar un comentario