Mensajes

Buen dia, estoy haciendo un script basico en bash que permita ejecutar programas mendiante opciones.. es algo basico ya que si yo escribo esos programas en el terminal se ejecutan.. pero para vender un poco humo jaj..

Me podrian ayudar aver como podria volver a ejecutar al menu . Gracias

aqui el codigo

Código [Seleccionar] Expandir

#!/bin/bash
while true; do
echo "Seleccione la operacion por favor!!"
echo "a)Servicios"
echo "b)Ejecutables"
echo "c)Salir"
echo "ingrese la letra correspondiente: "
read opcion

while [ $opcion == b ]; do
clear

echo "Seleccione el programa a ejecutar"
echo "1)Ejecutar Gedit"
echo "2)Ejecutar Nautilus"
echo "3)Ejecutar Mozilla Firefox"
echo "8)Volver al Menu"  [b]  ###########---------------> Aca es donde quiero que vuelva al menu!!!
echo "9)Salir"
echo "Ingrese el numero correspondiente al programa: "
read numero

while [ $numero != 8 ]; do [b]-->  ####### pero no se como asignarle para que vuelva al menu!![/b]
if (($numero == 1)); then
exec gedit&
fi

if (($numero == 2)); then
exec nautilus&
fi

if (($numero == 3)); then
exec firefox&
fi

if (($numero == 9)); then
exit
fi

done

clear
done

if (($opcion == c)); then
exit
fi
done

Código [Seleccionar] Expandir

Private Sub gene_Click()

Dim a1, a2, a3, a4, a5, a6 As String

Dim a7, a8, a9, a10, a11, a12 As String

Dim a13, a14, a15, a16, a17, a18 As String

Dim a19, a20, a21, a22, a23, a24 As String

Dim sel As Integer
Dim sel1 As Integer
Dim sel2 As Integer
Dim sel3 As Integer

a1 = "WPD800-50238-41232-75723"
a2 = "WPD800-54638-25132-53861"
a3 = "WPD800-50238-41232-75723"
a4 = "WPD800-57137-70532-93537"
a5 = "WPD800-52438-68532-93631"
a6 = "WPD800-52034-44132-55923"
a7 = "1192-1848-5709-9274-6046-4654"
a8 = "1192-1138-5709-9274-6046-4692"
a9 = "1192-1456-0538-8705-9702-0460"
a10 = "1192-1526-0538-8705-9702-0410"
a11 = "1302-1469-3459-6581-2371-7962"
a12 = "1192-1613-4695-6386-5005-6201"
a13 = "1192-1413-8739-4724-1366-4303"
a14 = "1192-1749-2186-1073-9238-2383"
a15 = "1192-1591-8491-6198-0195-9233"
a16 = "1192-1908-4186-9627-5230-5056"
a17 = "1192-1549-8302-3599-4260-9754"
a18 = "1192-1781-7943-8458-8323-0874"
a19 = "1192-1972-8606-1333-6454-0893"
a20 = "1192-1141-3450-7098-5264-3425"
a21 = "1192-1041-0065-6044-4789-3927"
a22 = "1192-1583-2725-2984-6187-4475"
a23 = "1192-1249-7500-6777-3904-8601"
a24 = "1192-1008-3123-1732-8483-9249"

If combo1.Text = "" = True Then
MsgBox "Debe Seleccionar Algun Producto."

ElseIf combo1.Text = "Dreamweaver 8" Then
sel = Int(Rnd() * 6)

Select Case sel
Case 0
serial.Text = a1
Case 1
serial.Text = a2
Case 2
serial.Text = a3
Case 3
serial.Text = a4
Case 4
serial.Text = a5
Case 5
serial.Text = a6
End Select

ElseIf combo1.Text = "Dreamweaver cs3" Then
sel1 = Int(Rnd() * 6)

Select Case sel1
Case 0
serial.Text = a7
Case 1
serial.Text = a8
Case 2
serial.Text = a9
Case 3
serial.Text = a10
Case 4
serial.Text = a11
Case 5
serial.Text = a12
End Select

ElseIf combo1.Text = "Dreamweaver cs4" Then
sel2 = Int(Rnd() * 6)
Select Case sel2
Case 0
serial.Text = a13
Case 1
serial.Text = a14
Case 2
serial.Text = a15
Case 3
serial.Text = a16
Case 4
serial.Text = a17
Case 5
serial.Text = a18
End Select

ElseIf combo1.Text = "Dreamweaver cs5" Then
sel3 = Int(Rnd() * 6)
Select Case sel3
Case 0
serial.Text = a19
Case 1
serial.Text = a20
Case 2
serial.Text = a21
Case 3
serial.Text = a22
Case 4
serial.Text = a23
Case 5
serial.Text = a24
End Select
End If

End Sub

lo qe pasa, es qe el programa anda al 100% ... pero necesito optimizarlo ya qe al hacer click en el comand button anda lento. (osea me genera otro serial pero mas lento)
Gracias.!

Hola buen dia, cree una aplicacion qe consiste en generar serial para el programa dreamweaver (Diseño de pag webs) en todas sus versiones.. aqui se los dejo:


http://www.mediafire.com/?26bj58ytm5irbnx

Mi duda: Cuando clickeo en la opcion de generar serial hize un case para genere mas de 1 serial.. pero carga lento.. me gustaria qe genere mas rapido, es posible esto? Como hago para optimizarlo ? Gracias