Foro de elhacker.net

Programaciσn => Scripting => Mensaje iniciado por: yolman23 en 7 Enero 2010, 07:31 am


Título: programar en .bat ayuda
Publicado por: yolman23 en 7 Enero 2010, 07:31 am
hola
alguin me podria orientar sobre un trabajo que estoy haciendo para U es programar en .bat. tengo casi todo echo pero eh llegado aun punto que se me cierra el progrma y n o me hace lo que yo quiero.

gracias por su atencion prestada y espero pronta respuesta..

aqui esta el codigo

@echo off
cls
color 40
echo.
echo    ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo    Ί         Bienvenidos Al Programa Para Legalizar Todos Los              Ί
echo    Ί                Programas De La Suite Adobe CS3                        Ί
echo    ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo                        Ί                              Ί
echo                        Ί   !! Antes De Instalar: !!   Ί
echo                        Ί                              Ί
echo    ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo    Ί             Cerrar Cualquier Aplicacion De Adobe CS3                  Ί
echo    Ί       Ejecutar Esta Aplicacion Ejecutar Como Administrador            Ί
echo    ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
set /p usuario= ingrese su nombre de usuario
If %usuario%==admin (goto sistema) else (goto error)

:error
color 07
cls
echo Acceso Denegado
echo LO sentimos, Comuniquese con el Departamento Tecnico de
echo hay estaran Los Tecnico para Colaborarle
pause
exit

:sistema
color 1E
cls
echo ..::(Bienvenido al sistema)::..
echo.
:menu
cls
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί                        MENU                               Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 1           Activar   COREL                               Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 2           Activar   After Effects CS3                   Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 3           Actvar    Audition 3.0                        Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 4           Activar   Dreamweaver CS3                     Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 5           Activar   Fireworks CS3                       Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 6           Activar   Flash CS3                           Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
pause
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 7           Activar   Illustrator CS3                     Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 8           Actvar    InDesign CS3                        Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί 9           Activar   Photoshop CS3                       Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί A           Activar   Premiere Pro CS3                    Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί B           Activar   3ds Max 2010                        Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί C                Actvar    Todos                          Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
echo          Ί D                    SALIR                                Ί
echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
echo.
[color=black]
DESDE AQUI TENGO EL ERROR Y NO SE QUE HACER POR AYUDEMEN[/color]

crack\otro\choice.exe /C:123456789ABCD /N "Pulse la tecla deseada: "
) ELSE (
choice /C 123456789ABCD /N /M "Pulse la tecla deseada: "
)
pause
echo.
IF ERRORLEVEL D GOTO :Salir
IF ERRORLEVEL C GOTO :Actvar    Todos
IF ERRORLEVEL B GOTO :Activar   3ds Max 2010
IF ERRORLEVEL A GOTO :Activar   Premiere Pro CS3
IF ERRORLEVEL 9 GOTO :Activar   Photoshop CS3
IF ERRORLEVEL 8 GOTO :Actvar    InDesign CS3
IF ERRORLEVEL 7 GOTO :Activar   Illustrator CS3
IF ERRORLEVEL 6 GOTO :Activar   Flash CS3
IF ERRORLEVEL 5 GOTO :Activar   Fireworks CS3
IF ERRORLEVEL 4 GOTO :Activar   Dreamweaver CS3
IF ERRORLEVEL 3 GOTO :Actvar    Audition 3.0
IF ERRORLEVEL 2 GOTO :Activar   After Effects CS3
IF ERRORLEVEL 1 GOTO :Activar   Corel
pause
echo.
:Activar   corel
copy "\\192.168.0.174\monito\crack" "c:\crack\CorelPP.dll"
copy "\\192.168.0.174\monito\crack" "c:\crack\CorelDrw.dll"
copy "\\192.168.0.174\monito\crack" "c:\crack\crlutl.dll"
copy "c:\crack\CorelPP.dll" "C:\Archivos de programa\Corel\CorelDRAW Graphics Suite X4\Programs\CorelPP.dll"
copy "c:\crack\crlutl.dll" "C:\Archivos de programa\Corel\CorelDRAW Graphics Suite X4\Programs\crlutl.dll"
copy "c:\crack\CorelDrw.dll" "C:\Archivos de programa\Corel\CorelDRAW Graphics Suite X4\Programs\CorelDrw.dll"
echo se copiaron satifactoriamente los archivo
del "c:\crack\*.*
rd "c:\crack
echo.
goto :menu
:Activar   After Effects CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\AfterFX.dll"
copy "c:\crack\AfterFX.dll" "C:\Archivos de programa\Adobe\Adobe After Effects CS3\Support Files\AfterFX.dll"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Actvar    Audition 3.0
copy "\\192.168.0.174\monito\crack" "c:\crack\Audition.exe"
copy "c:\crack\Audition.exe" "C:\Archivos de programa\Adobe\Adobe Audition 3.0\Audition.exe"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   Dreamweaver CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Dreamweaver.exe"
copy "c:\crack\Dreamweaver.exe" "C:\Archivos de programa\Adobe\Adobe Dreamweaver CS3\Dreamweaver.exe"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   Fireworks CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Fireworks.exe"
copy "c:\crack\Fireworks.exe" "C:\Archivos de programa\Adobe\Adobe Fireworks CS3\Fireworks.exe"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   Flash CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Flash.exe"  
copy "c:\crack\Flash.exe" "C:\Archivos de programa\Adobe\Adobe Flash CS3\Flash.exe"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   Illustrator CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Illustrator.exe"  
copy "c:\crack\Illustrator.exe" "C:\Archivos de programa\Adobe\Adobe Illustrator CS3\Support Files\Contents\Windows

\Illustrator.exe"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Actvar    InDesign CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Public.dll"  
copy "c:\crack\Public.dll" "C:\Archivos de programa\Adobe\Adobe InDesign CS3\Public.dll"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   Photoshop CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Photoshop.exe"  
copy "c:\crack\Photoshop.exe" "C:\Archivos de programa\Adobe\Adobe Photoshop CS3\Photoshop.exe"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   Premiere Pro CS3
copy "\\192.168.0.174\monito\crack" "c:\crack\Premiere.dll"
copy "c:\crack\Premiere.dll" "C:\Archivos de programa\Adobe\Adobe Premiere Pro CS3\Premiere.dll"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Activar   3ds Max 2010
copy "\\192.168.0.174\monito\crack" "c:\crack\adlmint.dll"
copy "c:\crack\adlmint.dll" "C:\Archivos de programa\Autodesk\3ds Max 2010\adlmint.dll"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Actvar    Todos
xcopy "\\192.168.0.174\monito\crack" "c:\crack"
copy "c:\crack\CorelPP.dll" "C:\Archivos de programa\Corel\CorelDRAW Graphics Suite X4\Programs\CorelPP.dll"
copy "c:\crack\crlutl.dll" "C:\Archivos de programa\Corel\CorelDRAW Graphics Suite X4\Programs\crlutl.dll"
copy "c:\crack\CorelDrw.dll" "C:\Archivos de programa\Corel\CorelDRAW Graphics Suite X4\Programs\CorelDrw.dll"
copy "c:\crack\AfterFX.dll" "C:\Archivos de programa\Adobe\Adobe After Effects CS3\Support Files\AfterFX.dll"
copy "c:\crack\Audition.exe" "C:\Archivos de programa\Adobe\Adobe Audition 3.0\Audition.exe"
copy "c:\crack\Dreamweaver.exe" "C:\Archivos de programa\Adobe\Adobe Dreamweaver CS3\Dreamweaver.exe"
copy "c:\crack\Fireworks.exe" "C:\Archivos de programa\Adobe\Adobe Fireworks CS3\Fireworks.exe"
copy "c:\crack\Flash.exe" "C:\Archivos de programa\Adobe\Adobe Flash CS3\Flash.exe"
copy "c:\crack\Illustrator.exe" "C:\Archivos de programa\Adobe\Adobe Illustrator CS3\Support Files\Contents\Windows

\Illustrator.exe"
copy "c:\crack\Public.dll" "C:\Archivos de programa\Adobe\Adobe InDesign CS3\Public.dll"
copy "c:\crack\Photoshop.exe" "C:\Archivos de programa\Adobe\Adobe Photoshop CS3\Photoshop.exe"
copy "c:\crack\Premiere.dll" "C:\Archivos de programa\Adobe\Adobe Premiere Pro CS3\Premiere.dll"
copy "c:\crack\adlmint.dll" "C:\Archivos de programa\Autodesk\3ds Max 2010\adlmint.dll"
del "c:\crack\*.*
rd "c:\crack
goto :menu
:Salir

Título: Re: programar en .bat ayuda
Publicado por: [L]ord [R]NA en 7 Enero 2010, 20:26 pm
quita esto "@echo off"

Título: Re: programar en .bat ayuda
Publicado por: leogtz en 7 Enero 2010, 21:35 pm
Cita de: R.N.A. en  7 Enero 2010, 20:26 pm
quita esto "@echo off"
ΏY eso para quι?, sino se va a responder solo por responder, es preferible no hacerlo.

El primer error visible estα aquν:
Código
  1. crack\otro\choice/C:123456789ABCD /N "Pulse la tecla deseada: "
  2. ) ELSE (
  3. choice /C 123456789ABCD /N /M "Pulse la tecla deseada: "
  4. )

Esa clausula ELSE no corresponde a ningϊn IF anterior, quitalo.

El segundo error visible es el nombre de tus etiquetas, las etiquetas no deben de tener mαs de 8 caracteres, cmd.exe sσlo reconoce los primeros 8 caracteres.

Asν que quita esos espacios, y dejalo algo asν:

Código
  1. IF ERRORLEVEL D GOTO :Salir
  3. IF ERRORLEVEL B GOTO :_3dmax
  4. IF ERRORLEVEL A GOTO :_premier
  5. IF ERRORLEVEL 9 GOTO :_photo
  6. IF ERRORLEVEL 8 GOTO :_indese
  7. IF ERRORLEVEL 7 GOTO :_illust
  8. IF ERRORLEVEL 6 GOTO :_flash
  9. IF ERRORLEVEL 5 GOTO :_fire
  10. IF ERRORLEVEL 4 GOTO :dream
  11. IF ERRORLEVEL 3 GOTO :audition
  12. IF ERRORLEVEL 2 GOTO :_effects
  13. IF ERRORLEVEL 1 GOTO :_corel

Y por tercero, los codigos de error estαn mal, choice.exe devuelve codigos de error dependiendo de las opciones especificadas en el parametro /C, asν que los error devueltos no son A, B, C σ D, son 10, 11, 12 y 13.

Asν:

Código
  1. IF ERRORLEVEL 13 GOTO :Salir
  2. IF ERRORLEVEL 12 GOTO :_all
  3. IF ERRORLEVEL 11 GOTO :_3dmax
  4. IF ERRORLEVEL 10 GOTO :_premier
  5. IF ERRORLEVEL 9 GOTO :_photo
  6. IF ERRORLEVEL 8 GOTO :_indese
  7. IF ERRORLEVEL 7 GOTO :_illust
  8. IF ERRORLEVEL 6 GOTO :_flash
  9. IF ERRORLEVEL 5 GOTO :_fire
  10. IF ERRORLEVEL 4 GOTO :dream
  11. IF ERRORLEVEL 3 GOTO :audition
  12. IF ERRORLEVEL 2 GOTO :_effects
  13. IF ERRORLEVEL 1 GOTO :_corel
  14.  

El cσdigo base corregido es asν, usalo y no tendrαs otros errores:

Código
  1. @echo off
  2. cls
  3. color 0a
  5. echo    ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  6. echo    Ί         Bienvenidos Al Programa Para Legalizar Todos Los              Ί
  7. echo    Ί                Programas De La Suite Adobe CS3                        Ί
  8. echo    ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  9. echo                        Ί                              Ί
  10. echo                        Ί   !! Antes De Instalar: !!   Ί
  11. echo                        Ί                              Ί
  12. echo    ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  13. echo    Ί             Cerrar Cualquier Aplicacion De Adobe CS3                  Ί
  14. echo    Ί       Ejecutar Esta Aplicacion Ejecutar Como Administrador            Ί
  15. echo    ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  17. set /p "usuario=ingrese su nombre de usuario : "
  18. If "%usuario%"=="admin" (goto sistema) else (goto error)
  19.  
  20. :error
  21. color 07
  22. cls
  23. echo Acceso Denegado
  24. echo LO sentimos, Comuniquese con el Departamento Tecnico de Multitech
  25. echo hay estaran Los Tecnico para Colaborarle
  28.  
  29. :sistema
  30. color 1E
  31. cls
  32. echo ..::(Bienvenido al sistema)::..
  34. :menu
  35. cls
  36. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  37. echo          Ί                        MENU                               Ί
  38. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  40. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  41. echo          Ί 1           Activar   COREL                               Ί
  42. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  44. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  45. echo          Ί 2           Activar   After Effects CS3                   Ί
  46. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  48. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  49. echo          Ί 3           Actvar    Audition 3.0                        Ί
  50. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  52. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  53. echo          Ί 4           Activar   Dreamweaver CS3                     Ί
  54. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  56. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  57. echo          Ί 5           Activar   Fireworks CS3                       Ί
  58. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  60. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  61. echo          Ί 6           Activar   Flash CS3                           Ί
  62. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  63. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  64. echo          Ί 7           Activar   Illustrator CS3                     Ί
  65. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  67. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  68. echo          Ί 8           Actvar    InDesign CS3                        Ί
  69. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  71. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  72. echo          Ί 9           Activar   Photoshop CS3                       Ί
  73. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  75. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  76. echo          Ί A           Activar   Premiere Pro CS3                    Ί
  77. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  79. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  80. echo          Ί B           Activar   3ds Max 2010                        Ί
  81. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  83. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  84. echo          Ί C                Actvar    Todos                          Ί
  85. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  87. echo          ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»
  88. echo          Ί D                    SALIR                                Ί
  89. echo          ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ
  91. choice /C:123456789ABCD /N /M "Pulse la tecla deseada: "
  92. IF ERRORLEVEL 13 GOTO :Salir
  93. IF ERRORLEVEL 12 GOTO :_all
  94. IF ERRORLEVEL 11 GOTO :_3dmax
  95. IF ERRORLEVEL 10 GOTO :_premier
  96. IF ERRORLEVEL 9 GOTO :_photo
  97. IF ERRORLEVEL 8 GOTO :_indese
  98. IF ERRORLEVEL 7 GOTO :_illust
  99. IF ERRORLEVEL 6 GOTO :_flash
  100. IF ERRORLEVEL 5 GOTO :_fire
  101. IF ERRORLEVEL 4 GOTO :dream
  102. IF ERRORLEVEL 3 GOTO :audition
  103. IF ERRORLEVEL 2 GOTO :_effects
  104. IF ERRORLEVEL 1 GOTO :_corel
  105.  
  106. :_corel
  107. echo Estoy en Corel
  108. set /p "=Pulse algo para salir : !!
  109. exit /b 0
  110.  
  111. :_effects
  112. echo Estoy en Effects
  113. set /p "=Pulse algo para salir : !!
  114. exit /b 0
  115.  
  116. :audition
  117. echo Estoy en ALL
  118. set /p "=Pulse algo para salir : !!
  119. exit /b 0
  120.  
  121.  
  122. :dream
  123. echo Estoy en Dreamweaver
  124. set /p "=Pulse algo para salir : !!
  125. exit /b 0
  126.  
  127. :_fire
  128. echo Estoy en ALL
  129. set /p "=Pulse algo para salir : !!
  130. exit /b 0
  131.  
  132. :_flash
  133. echo Estoy en Flash
  134. set /p "=Pulse algo para salir : !!
  135. exit /b 0
  136.  
  137. :_illust
  138. echo Estoy en Illustrator
  139. set /p "=Pulse algo para salir : !!
  140. exit /b 0
  141.  
  142. :_indese
  143. echo Estoy en Indesign
  144. set /p "=Pulse algo para salir : !!
  145. exit /b 0
  146.  
  147. :_photo
  148. echo Estoy en photo
  149. set /p "=Pulse algo para salir : !!
  150. exit /b 0
  151.  
  152. :_premier
  153. echo Premier
  154. set /p "=Pulse algo para salir : !!
  155. exit /b 0
  156.  
  157. :_3dmax
  158. echo Estoy en 3dmax
  159. set /p "=Pulse algo para salir : !!
  160. exit /b 0
  161.  
  162. :_all
  163. echo Estoy en ALL
  164. set /p "=Pulse algo para salir : !!
  165. exit /b 0
  166. :Salir
  167. exit /b 0

Título: Re: programar en .bat ayuda
Publicado por: yolman23 en 8 Enero 2010, 23:10 pm
gracias  leo gutierrez por haberme corregido el codigo ya que apena me estoy entrando en el mundo de la programacion y esto lo necesitaba con urgencia.


 MUCHISIMAS GRACIAS POR CORREGUIRMELO TE LO AGRDEZCO

una pregunta que me recomiendas par aprender a programar no se nada solo lo que viste es lo unico que se de programacion espero tu respuesta.

Título: Re: programar en .bat ayuda
Publicado por: Shell Root en 8 Enero 2010, 23:12 pm
Cita de: yolman23 en  8 Enero 2010, 23:10 pm
entrando en el mundo de la programacion
Batch NO es un Lenguaje de Programaciσn

Cita de: yolman23 en  8 Enero 2010, 23:10 pm
una pregunta que me recomiendas par aprender a programar no se nada solo lo que viste es lo unico que se de programacion espero tu respuesta.
http://foro.elhacker.net/scripting/programacion_batch_avanzada_nuevo-t132924.0.html

Saludos!

Título: Re: programar en .bat ayuda
Publicado por: leogtz en 9 Enero 2010, 00:18 am
Cita de: yolman23 en  8 Enero 2010, 23:10 pm
gracias  leo gutierrez por haberme corregido el codigo ya que apena me estoy entrando en el mundo de la programacion y esto lo necesitaba con urgencia.


 MUCHISIMAS GRACIAS POR CORREGUIRMELO TE LO AGRDEZCO

una pregunta que me recomiendas par aprender a programar no se nada solo lo que viste es lo unico que se de programacion espero tu respuesta.

Te recomiendo que te aventures a aprender un lenguaje de programaciσn, pero no Batch(te vas a topar con muchas limitaciones), que aprendas python, perl, C/C++ o Java.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines