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

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 2 [3] 4 5 6
21  Programación / Scripting / Re: (Solucionado) [Batch] Randomizar lineas en un txt? en: 11 Octubre 2013, 06:03 am
maestro perdón por 2 cosa

la primera por colocar  la pregunta en el tema equivocado y la segunda por la preguntadera... si no entendí mal solo debo agregar () a la ruta:

Código
  1. IF %ERRORLEVEL% LEQ 0 (FOR /R %%_ in (*clever.exe) do ("%%_")) | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar

22  Programación / Scripting / Re: (Solucionado) [Batch] Randomizar lineas en un txt? en: 11 Octubre 2013, 01:59 am
maestro tengo una duda...

cuando coloco el archivo de aplicación

clever.exe

en otra carpeta siempre del escritorio el código se cierra y no me funciona...

pensé remediarlo de esto:
Código
  1. IF %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul & goto :Comprobar

a esto pero no me funciono:
Código
  1. IF %ERRORLEVEL% LEQ 0 FOR /R %%_ in (*clever.exe) do ("%%_") | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar
23  Programación / Scripting / Re: (Solucionado) [Batch] Randomizar lineas en un txt? en: 9 Octubre 2013, 09:52 am
abusando de la confianza podría ser modificado el código para que en lugar de reproducir se añadan a la cola de archivos para reproducir..
24  Programación / Scripting / Re: minimizar en SYSTRAY en: 7 Octubre 2013, 23:04 pm
O puedes usar VisualBasicScript para iniciar la CMD de manera oculta


bien, de VBS no se mucho, pero habra alguna manera que inicie minimizado asi?

Suponiendo que mi archivo se llame:

CODIGO FINAL.bat

Código
  1. IF "%~1" EQU "" (Start /MIN "" "%~f0" CODIGO FINAL)
  2. :Comprobar
  3. tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
  4. IF %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar
  5. IF NOT %ERRORLEVEL% LEQ 0 goto :Comprobar
  6.  
  7. :Esperar
  8. tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
  9. IF %ERRORLEVEL% LEQ 0 goto :Esperar
  10. IF NOT %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul & goto :Comprobar


disculpa que te lo pregunte en lugar de probarlo pero lo tengo en produccion y no puedo interrumpir la pc...  :xD
gracias
25  Programación / Scripting / Re: minimizar en SYSTRAY en: 7 Octubre 2013, 22:51 pm
Y claro maestro si puedes optimizar el código... estaré aun mas feliz...


Código
  1. ::START /MIN
  2. :Comprobar
  3. tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
  4. IF %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar
  5. IF NOT %ERRORLEVEL% LEQ 0 goto :Comprobar
  6.  
  7. :Esperar
  8. tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
  9. IF %ERRORLEVEL% LEQ 0 goto :Esperar
  10. IF NOT %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul & goto :Comprobar
26  Programación / Scripting / minimizar en SYSTRAY en: 7 Octubre 2013, 22:30 pm
Si tengo un batch... cualquiera... como puedo hacer para que desde el mismo se inicie minimizado o minimizado en SYSTRAY?
o como colocar el


Código
  1. START /MIN

dentro del mismo batch y que funcione


agradezco su tiempo
27  Programación / Scripting / Re: (Solucionado) [Batch] Randomizar lineas en un txt? en: 6 Octubre 2013, 23:37 pm
gracias EleKtro.... como siempre las mejores respuestas
28  Programación / Scripting / Re: (Solucionado) [Batch] Randomizar lineas en un txt? en: 6 Octubre 2013, 19:40 pm
Reviviendo esto... una duda... yo lo uso así pero como decirle que solo haga una lista de reproducción de, por ejemplo unos 10 archivos, o 5 archivos...  ;-)

gracias


Código
  1. @Echo OFF
  2. Title %~n0
  3. Mode con cols=50 lines=3
  4. Setlocal enabledelayedexpansion
  5. chcp 1252 >NUL
  6. For /F "Tokens=*" %%$ in ('Dir /B /S "%~dp0" ^| Findstr /R ".avi .mkv"') do (Echo !Random!!Random!!Random!;%%$>>"%Temp%\Lista Winamp.tmp")
  7. Echo #EXTm3u8>"%Temp%\Lista Winamp.m3u8"
  8. For /F "Tokens=2* Delims=;" %%$ in ('Type "%Temp%\Lista Winamp.tmp" ^| Sort ') do (Echo %%$>>"%Temp%\Lista Winamp.m3u8")
  9. Start /B "%PROGRAMFILES(X86)%\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u8"
29  Programación / Scripting / Re: automatizado de Canal de TV, basado en Batch DOS y VBasic… en: 29 Septiembre 2012, 02:54 am
Continuando maestro me puedes seguir guiando

No me funcionan las tareas programadas pues me dice que no encuentra el archivo...

Estaba pensando usar esto:

Código
  1. AT 6:45 /interactive start If Not Exist "%UserProfile%\Escritorio\" (Set "DesktopPath=%UserProfile%\Desktop") LISTA1.bsl


me preguntaste ¿Porque usas la pipe |?

lo uso así... por qué probé en una máquina virtual Xp y W7 ultímate... y no corría
Hacia abajo asi que lo pegue asi y funciono...

Código
  1. (FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))

Además añadí o cambie esta parte: porque no logre que corriera como anteriormente

Código
  1. Tasklist|find /i "Bsplayer.exe"
  2. if %errorlevel%==0 Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1 |Taskkill /F /T /IM "Dslogo.exe" >NUL 2>&1 | Taskkill /F /T /IM "Dslogo2.exe" >NUL 2>&1 | Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1 | Call :Winamp_Key "c"


Para que espere  que proceso BSplayer TERMINE de reproducir y se cierre después: Dar PLAY a Winamp, Abrir Dsclock, Abrir Dslogo y Dslogo2 use este código
Pero como dije yo no he utilizado batch más que lo añadí y adpte… pero di me si esta correcto


Código
  1. (
  2. Echo Set WshShell = CreateObject("WScript.Shell"^)
  3. Echo Set oExec = WshShell.Exec("BSplayer"^)
  4. Echo Do While oExec.Status = 0
  5.     Echo WScript.Sleep 100
  6. Echo Loop
  7. Echo WScript.Echo oExec.Status
  8. )>"%TEMP%\BSplayer.vbs"
  9. Start /W wscript "%TEMP%\BSplayer.vbs"
  10. Del /Q "%TEMP%\BSplayer.vbs"
  11. Goto :EOF
  12. )
  13.  

Aqui estan todas las lineas.

Código
  1. Echo off
  2. AT 6:45 /interactive start "%DesktopPath%" LISTA1.bsl
  3. AT 7:30 /interactive start "%DesktopPath%" LISTA2.bsl
  4. AT 8:15 /interactive start "%DesktopPath%" LISTA3.bsl
  5. AT 9:00 /interactive start "%DesktopPath%" LISTA4.bsl
  6. AT 9:45 /interactive start "%DesktopPath%" LISTA1.bsl
  7. AT 10:30 /interactive start "%DesktopPath%" LISTA2.bsl
  8. AT 11:15 /interactive start "%DesktopPath%" LISTA3.bsl
  9. AT 12:00 /interactive start "%DesktopPath%" LISTA4.bsl
  10. AT 12:45 /interactive start "%DesktopPath%" LISTA1.bsl
  11. AT 13:30 /interactive start "%DesktopPath%" LISTA2.bsl
  12. AT 14:15 /interactive start "%DesktopPath%" LISTA3.bsl
  13. AT 15:00 /interactive start "%DesktopPath%" LISTA4.bsl
  14. AT 15:45 /interactive start "%DesktopPath%" LISTA1.bsl
  15. AT 16:30 /interactive start "%DesktopPath%" LISTA2.bsl
  16. AT 17:15 /interactive start "%DesktopPath%" LISTA3.bsl
  17. AT 18:00 /interactive start "%DesktopPath%" LISTA4.bsl
  18. AT 18:45 /interactive start "%DesktopPath%" LISTA1.bsl
  19. AT 19:30 /interactive start "%DesktopPath%" LISTA2.bsl
  20. AT 20:15 /interactive start "%DesktopPath%" LISTA3.bsl
  21. AT 21:00 /interactive start "%DesktopPath%" LISTA4.bsl
  22. AT 21:45 /interactive start "%DesktopPath%" LISTA1.bsl
  23. AT 22:30 /interactive start "%DesktopPath%" LISTA2.bsl
  24. AT 23:15 /interactive start "%DesktopPath%" LISTA3.bsl
  25. AT 0:00 /interactive start "%DesktopPath%" LISTA4.bsl
  26.  
  27. @Echo off
  28. START /D "%Programfiles%\Winamp\" winamp.exe
  29. Call :Winamp_Key "x"
  30. START /D "%Programfiles%\DS Clock\" dsclock.exe
  31. (FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))
  32.  
  33. :Loop
  34.  
  35. ::[PASO 4] Busque El Proceso BSplayer y al encontrarlo: CERRAR Dsclock.exe, Dslogo.exe, Dslogo2.exe, TextTicker.exe y PAUSE Winamp
  36. @Echo Off
  37. Tasklist|find /i "Bsplayer.exe"
  38. if %errorlevel%==0 Taskkill /F /T /IM "dsclock.exe"  >NUL 2>&1 |Taskkill /F /T /IM "Dslogo.exe" >NUL 2>&1 | Taskkill /F /T /IM "Dslogo2.exe" >NUL 2>&1 | Taskkill /F /T /IM "TxTicker.exe" >NUL 2>&1 | Call :Winamp_Key "c"
  39.  
  40. ::[PASO 5] Esperar  que proceso BSplayer TERMINE de reproducir y se cierre después: Dar PLAY a Winamp, Abrir Dsclock, Abrir Dslogo y Dslogo2
  41. (
  42. Echo Set WshShell = CreateObject("WScript.Shell"^)
  43. Echo Set oExec = WshShell.Exec("BSplayer"^)
  44. Echo Do While oExec.Status = 0
  45.     Echo WScript.Sleep 100
  46. Echo Loop
  47. Echo WScript.Echo oExec.Status
  48. )>"%TEMP%\BSplayer.vbs"
  49. Start /W wscript "%TEMP%\BSplayer.vbs"
  50. Del /Q "%TEMP%\BSplayer.vbs"
  51. Goto :EOF
  52. )
  53. Call :Winamp_Key "x"
  54. START /D "%Programfiles%\DS Clock\" dsclock.exe
  55. (FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))
  56.  
  57.  
  58. :Winamp_Key
  59. :: Hotkeys Winamp:
  60. ::
  61. :: c=Pause
  62. :: x=Play
  63. ::
  64. If NOT "%~1" EQU "" (
  65. (
  66. Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
  67. Echo Do Until Success = True
  68. Echo     Success = objShell.AppActivate("winamp"^)
  69. Echo     Wscript.Sleep 250
  70. Echo Loop
  71. Echo objShell.SendKeys "%~1"
  72. Echo Wscript.quit
  73. )>"%TEMP%\winamp.vbs"
  74. Start /W wscript "%TEMP%\winamp.vbs"
  75. Del /Q "%TEMP%\Winamp.vbs"
  76. Goto :EOF
  77. )
  78.  
  79. Ping -n 3 LOCALHOST >NUL
  80.  
  81. ::[PASO 6] repetir hasta Etiqueta 1
  82. Goto :Loop
30  Programación / Scripting / Re: automatizado de Canal de TV, basado en Batch DOS y VBasic… en: 26 Septiembre 2012, 20:29 pm
Mastro me puedes explicar como funcionan estas lineas por que en realidad solo copie y pegue peno entiendo su funcionamiento, sobre todo de las teclas de winamp


Código
  1. )
  2.  
  3. :Winamp_Key
  4. :: Hotkeys Winamp:
  5. ::
  6. :: c=Pause
  7. :: x=Play
  8. ::
  9. If NOT "%~1" EQU "" (
  10. (
  11. Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
  12. Echo Do Until Success = True
  13. Echo     Success = objShell.AppActivate("winamp"^)
  14. Echo     Wscript.Sleep 250
  15. Echo Loop
  16. Echo objShell.SendKeys "%~1"
  17. Echo Wscript.quit
  18. )>"%TEMP%\winamp.vbs"
  19. Start /W wscript "%TEMP%\winamp.vbs"
  20. Del /Q "%TEMP%\Winamp.vbs"
  21. Goto :EOF
  22. )
  23.  
  24. Ping -n 3 LOCALHOST >NUL
  25. Goto :Loop
Páginas: 1 2 [3] 4 5 6
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines