https://foro.gambas-es.org/viewtopic.php?f=1&t=3001&p=16918#p16918
-----------------------------------
sebikul
Lunes, 18 Marzo 2013, 19:11

Re: Como Responder A La Peticion De Un Comando De Consola?
-----------------------------------
[quote user="obedlink" post="16917"]
[code linenumbers=false syntax=gambas]Public Sub botonpad1_Click()

If botonpad1.Value = True Then
  botonpad1.Text = "Activado"
  Shell ("xboxdrv --wid 0 --silent --detach-kernel-driver --mimic-xpad")
Endif
If botonpad1.Value = False Then
  botonpad1.Text = "Desactivado"
  Shell (¿que comando uso para responder Crtl+c en el proceso anterior?)
Endif

End[/code]
[/quote]

[code linenumbers=false syntax=gambas]Public Sub botonpad1_Click()

Dim oDriver as Process


If botonpad1.Value = True Then
  botonpad1.Text = "Activado"
  oDriver = Shell "xboxdrv --wid 0 --silent --detach-kernel-driver --mimic-xpad"
Endif
If botonpad1.Value = False Then
  botonpad1.Text = "Desactivado"
  oDriver.Kill()
Endif

End[/code]

Dime si te funciona!


