elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Batch] Progressbar Distinta :oo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Batch] Progressbar Distinta :oo  (Leído 2,401 veces)
Geormarsch

Desconectado Desconectado

Mensajes: 160



Ver Perfil
[Batch] Progressbar Distinta :oo
« en: 6 Febrero 2012, 19:56 pm »

Bueno Tengo este Script

Código
  1.  
  2. @echo off
  3. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4.  
  5. REM By Geormarsch
  6. Color a
  7. Title Reproductor de musica
  8. mode con cols=120 lines=15
  9. REM No Borrar!!!
  10. reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
  11. reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
  12. cls
  13.  
  14. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  15.  
  16. :Menu_
  17. cls
  18. echo   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
  19. echo   ÛÛ                      
  20. echo   ÛÛ%File%
  21. echo   ÛÛ    
  22. echo   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
  23. echo  1.   Seleccionar
  24. echo  2.   Reproducir
  25. echo  3.   Parar
  26. Set /p Verificar= ^>^>
  27. If %Verificar%==1 (Goto Abrir)
  28. If %Verificar%==2 (Goto Repro)
  29. If %Verificar%==3 (Goto Parar)
  30. Goto Menu_
  31.  
  32. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  33.  
  34. :Abrir
  35. REM NO MODIFICAR!
  36. (
  37. echo Dim DialogBox
  38. echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
  39. echo DialogBox.InitialDir = "%Windir%"
  40. echo DialogBox.Filter = "Archivos de musica MP3,Wav,Mid|*.mp3;*.wav;*.mid"
  41. echo DialogBox.ShowOpen
  42. echo wscript.echo DialogBox.filename
  43. )>%Windir%\CommonDialog.vbs
  44.  
  45. cscript /nologo %Windir%\CommonDialog.vbs>%Windir%\Ruta.txt
  46. Set /p File=<"%Windir%\Ruta.txt"
  47. goto Repro
  48.  
  49. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  50.  
  51. :Repro
  52. cls
  53. REM NO MODIFICAR!
  54. (
  55. echo On Error Resume next
  56. echo Set Sound = CreateObject("WMPlayer.OCX"^)
  57. echo Sound.URL = "%File%"
  58. echo Sound.Controls.play
  59. echo if err.number = 0 then
  60. echo do while Sound.currentmedia.duration = 0
  61. echo wscript.sleep 100
  62. echo loop
  63. echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
  64. echo if len("%file%"^) ^< 2  then
  65. echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Error"
  66. echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Error"
  67. echo end if
  68. echo end if
  69. )>%Windir%\Sound.vbs
  70. cd %Windir%
  71. start Sound.vbs
  72. Goto Menu_
  73.  
  74. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  75.  
  76. :Parar
  77. cls
  78. Taskkill /F /IM wscript.exe
  79. cd %Windir%
  80. del /f /q Sound.vbs
  81. del /f /q Ruta.txt
  82. Set "File="
  83. goto menu_
  84.  
  85. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  86.  

Lo cree a partir de otro, bueno eso da lo mismo...
Ahora les pregunto se le puede añadir un progress Bar de Donde va la cancion es decir que muestre el tiempo o algo asi o solo que muestre la barra de progreso segun el tiempo de la cancion???
Saludos


En línea

"Comentar el código es como limpiar el cuarto de baño; nadie quiere hacerlo, pero el resultado es siempre una experiencia más agradable para uno mismo y sus invitados"
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Progressbar
Programación Visual Basic
Sk8er_boy12 4 2,693 Último mensaje 13 Septiembre 2005, 00:40 am
por Slasher-K
ProgressBar
Programación Visual Basic
Jareth 6 2,496 Último mensaje 11 Noviembre 2006, 19:16 pm
por Jareth
ProgressBar... O.O « 1 2 »
Programación Visual Basic
Petro_Boca 15 6,350 Último mensaje 13 Septiembre 2010, 18:42 pm
por ssccaann43 ©
Reconectar con IP distinta
Foro Libre
qeno 0 2,763 Último mensaje 5 Diciembre 2010, 19:47 pm
por qeno
servidor como FW de red distinta
Seguridad
oscarenzo 0 1,640 Último mensaje 9 Noviembre 2011, 19:04 pm
por oscarenzo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines