Mensajes

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 (dos) [Seleccionar] Expandir

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

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 (dos) [Seleccionar] Expandir

IF %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul & goto :Comprobar

a esto pero no me funciono:

Código (dos) [Seleccionar] Expandir

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

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..

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 (dos) [Seleccionar] Expandir

IF "%~1" EQU "" (Start /MIN "" "%~f0" CODIGO FINAL)
:Comprobar
tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar
IF NOT %ERRORLEVEL% LEQ 0 goto :Comprobar

:Esperar
tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 goto :Esperar
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... 
gracias

Y claro maestro si puedes optimizar el código... estaré aun mas feliz...

Código (dos) [Seleccionar] Expandir

::START /MIN
:Comprobar
tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar
IF NOT %ERRORLEVEL% LEQ 0 goto :Comprobar

:Esperar
tasklist /FI "IMAGENAME eq mpc-hc.exe" | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 goto :Esperar
IF NOT %ERRORLEVEL% LEQ 0 cd %UserProfile%\Desktop\clever pause | clever.exe pause >nul & goto :Comprobar

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 (dos) [Seleccionar] Expandir

START /MIN

dentro del mismo batch y que funcione


agradezco su tiempo

gracias EleKtro.... como siempre las mejores respuestas

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 (dos) [Seleccionar] Expandir

@Echo OFF
Title %~n0
Mode con cols=50 lines=3
Setlocal enabledelayedexpansion
chcp 1252 >NUL
Echo+
For /F "Tokens=*" %%$ in ('Dir /B /S "%~dp0" ^| Findstr /R ".avi .mkv"') do (Echo !Random!!Random!!Random!;%%$>>"%Temp%\Lista Winamp.tmp")
Echo #EXTm3u8>"%Temp%\Lista Winamp.m3u8"
For /F "Tokens=2* Delims=;" %%$ in ('Type "%Temp%\Lista Winamp.tmp" ^| Sort ') do (Echo %%$>>"%Temp%\Lista Winamp.m3u8")
Start /B "%PROGRAMFILES(X86)%\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u8"
Exit

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 (dos) [Seleccionar] Expandir

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 (dos) [Seleccionar] Expandir

(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 (dos) [Seleccionar] Expandir

Tasklist|find /i "Bsplayer.exe"
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 (dos) [Seleccionar] Expandir

(
Echo Set WshShell = CreateObject("WScript.Shell"^)
Echo Set oExec = WshShell.Exec("BSplayer"^)
Echo Do While oExec.Status = 0
     Echo WScript.Sleep 100
Echo Loop
Echo WScript.Echo oExec.Status
)>"%TEMP%\BSplayer.vbs"
Start /W wscript "%TEMP%\BSplayer.vbs"
Del /Q "%TEMP%\BSplayer.vbs"
Goto :EOF
)


Aqui estan todas las lineas.

Código (dos) [Seleccionar] Expandir

Echo off
AT 6:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 7:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 8:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 9:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 9:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 10:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 11:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 12:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 12:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 13:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 14:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 15:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 15:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 16:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 17:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 18:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 18:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 19:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 20:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 21:00 /interactive start "%DesktopPath%" LISTA4.bsl
AT 21:45 /interactive start "%DesktopPath%" LISTA1.bsl
AT 22:30 /interactive start "%DesktopPath%" LISTA2.bsl
AT 23:15 /interactive start "%DesktopPath%" LISTA3.bsl
AT 0:00 /interactive start "%DesktopPath%" LISTA4.bsl

@Echo off
START /D "%Programfiles%\Winamp\" winamp.exe
Call :Winamp_Key "x"
START /D "%Programfiles%\DS Clock\" dsclock.exe
(FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))

:Loop

::[PASO 4] Busque El Proceso BSplayer y al encontrarlo: CERRAR Dsclock.exe, Dslogo.exe, Dslogo2.exe, TextTicker.exe y PAUSE Winamp
@Echo Off
Tasklist|find /i "Bsplayer.exe"
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"

::[PASO 5] Esperar  que proceso BSplayer TERMINE de reproducir y se cierre después: Dar PLAY a Winamp, Abrir Dsclock, Abrir Dslogo y Dslogo2
(
Echo Set WshShell = CreateObject("WScript.Shell"^)
Echo Set oExec = WshShell.Exec("BSplayer"^)
Echo Do While oExec.Status = 0
     Echo WScript.Sleep 100
Echo Loop
Echo WScript.Echo oExec.Status
)>"%TEMP%\BSplayer.vbs"
Start /W wscript "%TEMP%\BSplayer.vbs"
Del /Q "%TEMP%\BSplayer.vbs"
Goto :EOF
)
Call :Winamp_Key "x"
START /D "%Programfiles%\DS Clock\" dsclock.exe
(FOR /R %%_ in (*DsLogo.exe) do ("%%_")) | (FOR /R %%_ in (*DsLogo2.exe) do ("%%_"))


:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
If NOT "%~1" EQU "" (
(
Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
Echo Do Until Success = True
Echo     Success = objShell.AppActivate("winamp"^)
Echo     Wscript.Sleep 250
Echo Loop
Echo objShell.SendKeys "%~1"
Echo Wscript.quit
)>"%TEMP%\winamp.vbs"
Start /W wscript "%TEMP%\winamp.vbs"
Del /Q "%TEMP%\Winamp.vbs"
Goto :EOF
)

Ping -n 3 LOCALHOST >NUL

::[PASO 6] repetir hasta Etiqueta 1
Goto :Loop

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 (dos) [Seleccionar] Expandir

)

:Winamp_Key
:: Hotkeys Winamp:
::
:: c=Pause
:: x=Play
::
If NOT "%~1" EQU "" (
(
Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
Echo Do Until Success = True
Echo     Success = objShell.AppActivate("winamp"^)
Echo     Wscript.Sleep 250
Echo Loop
Echo objShell.SendKeys "%~1"
Echo Wscript.quit
)>"%TEMP%\winamp.vbs"
Start /W wscript "%TEMP%\winamp.vbs"
Del /Q "%TEMP%\Winamp.vbs"
Goto :EOF
)

Ping -n 3 LOCALHOST >NUL
Goto :Loop