el codigo del final es para detener el proceso en especifico ya que pienso ejecutar hasta 4 veces el mismo comando, y para detenerlos individualmente quiero usar el comando de consola "sudo kill xxx" donde xxx es el numero del proceso.
la variable "contrasena" es una variable publica y contiene la contraseña de root.
por alguna razon el comando no se ejecuta ni me nuestra error en la consola de gambas.
el programa que estoy ejecutando es xboxdrv un driver user-space para los controles xbox360.
Public Sub btnActivar1_Click()
If btnActivar1.Value = True Then
killpad1 = Shell ("echo " & contrasena & " | sudo -S xboxdrv -d --silent --wid 0" & controltype1 & forcefeedbackpad1 & trigger1 & deadzone1) 'ejecuta el comando y a la vez lo amacena en una variable tipo process
Endif
If btnActivar1.Value = False Then
Shell ("echo ", contrasena, " | sudo -S kill ", killpad1.Handle] ' killpad1.handle devuelve el ID de proceso para poder matarlo
Endif
End
If btnActivar1.Value = True Then
killpad1 = Shell ("echo " & contrasena & " | sudo -S xboxdrv -d --silent --wid 0" & controltype1 & forcefeedbackpad1 & trigger1 & deadzone1) 'ejecuta el comando y a la vez lo amacena en una variable tipo process
Endif
If btnActivar1.Value = False Then
Shell ("echo ", contrasena, " | sudo -S kill ", killpad1.Handle] ' killpad1.handle devuelve el ID de proceso para poder matarlo
Endif
End