Foro de elhacker.net

Hola a todos y a todas:

Quiero hacer un menú sencillo que las funciones se hará después.

Por ahora he hecho esto de esta manera haciendo pruebas.


Como puedes ver, pulso el número 2), luego Enter para poder entrar en el menú. Mi idea es, desde que pulses la tecla número 2), entre directamente a la Segunda opción sin tener que pulsar Enter.



¿Cómo se hace lo que quiero?

Saludos.

Buenas:

He mejorado el ménú y puedo abrir la bandeja del disco, pero no me se el código de cerrar la bandeja.

function mostrarMenu 
{ 
     param ( 
           [string]$Titulo = ' Control bandeja del lector ' 
     ) 
     cls 
     Write-Host "╔====================================╗"
     Write-Host "║    $Titulo    ║"
     Write-Host "╠====================================╣" 
     Write-Host "║                                    ║"
     Write-Host "║    1) Abrir.                       ║"
     Write-Host "║    2) Cerrar.                      ║" 
     Write-Host "║    3) Información.                 ║" 
     Write-Host "║    S) Presiona 'S' para salir.     ║" 
     Write-Host "║                                    ║"
     Write-Host "╚====================================╝"
}
 
do 
{ 
     mostrarMenu 
     Write-Host ""
     $input = Read-Host "      Elegir una Opción." 
     switch ($input) 
     { 
           '1' { 
                cls 
                'Abriendo...'
                $items = (New-Object -com "WMPlayer.OCX.7").cdromcollection.item(0)            
                $items.eject()
                'Abierto.'
                Write-Host ""
           } '2' { 
                cls 
                'Segunda Opción' 
           } '3' { 
                cls 
                'Información.' 
           } 's' { 
                return 
           }  
     } 
     pause 
} 
until ($input -eq 's')

¿Cuál es el código para cerrar el disco?

Gracias.

la verdad es que no tengo idea que lenguaje estas usando, pero lo primero que se me ocurre es usar básicamente lo mismo que para abrir, pero intentando con lo mas común para cerrar:

$items = (New-Object -com "WMPlayer.OCX.7").cdromcollection.item(0)            
                $items.close()
 

Lo he probado y no funciona. Pero no se ma había ocurrido. ;)

Tampoco este.

$items.closed()

Saludos.

Hola:

Ya he sido capaz de abrir y cerrar la bandeja con PowerShell. LA fomra como es el menú no me hace gracia. Hay que pulsar una letra, luego Enter y después Enter para pulsar otra tecla más para cerra la bandeja.

Mi idea es que al pulsar la letra A o a, Abra la bandeja y preparado para que pulses otra letra. Nada de pulsar la A y luego Enter, para luego otra vez Enter. Si saben hacerlo mejor, avisen. De momento aquí funciona, es capaz de abrir y cerrara la bandeja.

$MemDef = @"
[DllImport("winmm.dll", CharSet = CharSet.Ansi)]
   public static extern int mciSendStringA(
   string lpstrCommand,
   string lpstrReturnString,
   int uReturnLength,
   IntPtr hwndCallback);
"@
 
$winnm = Add-Type -memberDefinition $MemDef -ErrorAction 'SilentlyContinue' -passthru -name mciSendString
function Set-CDAudioDoor {
 Param(
  [ValidateSet("open", "closed")][String[]]$Mode = 'open'
 )
 $winnm::mciSendStringA("set cdaudio door $mode", $null, 0,0)}
 
function mostrarMenu
{ 
     param ( 
           [string]$Titulo = ' Control bandeja del lector ' 
     ) 
     cls 
     Write-Host "╔====================================╗"
     Write-Host "║    $Titulo    ║"
     Write-Host "╠====================================╣" 
     Write-Host "║                                    ║"
     Write-Host "║    A) Abrir.                       ║"
     Write-Host "║    C) Cerrar.                      ║" 
     Write-Host "║    I) Información.                 ║" 
     Write-Host "║    S) Presiona 'S' para salir.     ║" 
     Write-Host "║                                    ║"
     Write-Host "╚====================================╝"
}
 
do 
{ 
     mostrarMenu 
     $input = Read-Host "      Elegir una Opción"
     switch ($input) 
     { 
           'a' { 
                cls 
                'Abriendo...'
                Set-CDAudioDoor open
                'Abierto.'
                ' '
           } 'c' { 
                cls 
                'Cerrando...' 
                Set-CDAudioDoor closed
                'Cerrado.'
           } 'i' { 
                cls 
                'PowerShell'
                '=========='
                Get-Host
           } 's' { 
                return 
           }  
     } 
     pause 
} 
until ($input -eq 's')

Saludos.