Saludos amigos vengo por su conocimiento para entender o corregir un código que me facilitaría varias acciones repetitivas relacionadas a programar un canal de Tv local; en 2015 nuestro administrador Elektro, me estructuro con una impresionante lógica el código, pero mi inexperiencia me ha llevado aun hoy en 2019, en no comprenderlo a totalidad, y no poder usarlo tratare de explicarlo en búsqueda de correcciones o sus amables sugerencias.

Dejo el link de referencia del tema donde inicie esto.

https://foro.elhacker.net/scripting/mover_a_otra_carpeta_y_usar_una_archivo_por_orden_de_menor_a_mayor_con_batch-t428033.0.html;msg1989649#msg1989649

Y la referencia de Winamp:

http://forums.winamp.com/showpost.php?p=1953663&postcount=7

Explicación:

Tengo una carpeta llamada “capítulos” con una serie con extensión MP4, AVI, o MKV, ordenados en números de menor a mayor: 

Capitulo_001.mp4
Capitulo_002.avi
Capitulo_003.mkv
Capitulo_004.mp4
etc.


Necesito mover el archivo de menor número en su nombre a otra carpeta llamada “emitidos”; Eso funciona de maravilla en el código.

Por ultimo ese archivo (ahora en la carpeta “emitidos”) se debe agregar a al editor de listas de reproducción de Winamp y reproducirlo, combinando la Winamp Command Line.

He aquí el código, con algunas mínimas modificaciones del de Elektro:

@Echo OFF & Title codigo estructurado por Elektro 
IF NOT EXIST emitidos (md emitidos)
Call :MoverSigArchivo "mp4" "%Cd%\capitulos" "%Cd%\emitidos"
Call :PlayEnWinamp "%SigArchivo%"
Exit /B 0
 
 
:MoverSigArchivo 
set "extension=%~1"
Set "capitulos=%~2"
Set "emitidos=%~3"
 
 
For %%# in (
	"%capitulos%\*.%extension%"
) Do (
	Set "sigArchivo=%%~f#"
	(Move "%%~f#" "%emitidos%\%%~nx#")1>NUL
	Exit /B 0
)
Goto:EOF  
 
:PlayEnWinamp
Set "filepath=%~1"
Set "wampDir=%PROGRAMFILES(X86)%\Winamp"
 
If "%~2" NEQ "" (Set "wampDir=%~2")
 
Start /B "WinAmp" "%wampDir%\winamp.exe" "%filepath%"
Goto:EOF
 
 

Este Código se ejecuta en la carpeta actual: %CD%  y verifica que exista una carpeta "emitidos", sino la crea dentro de la carpeta actual:

IF NOT EXIST emitidos (md emitidos) 

La estructura principal llama a dos etiquetas con la sintaxis de subrutina siguiente:


La primera llamada:

Call :MoverSigArchivo "mp4" "%Cd%\capitulos" "%Cd%\emitidos"

Según entiendo:

Llamada: etiqueta :MoverSigArchivo y le asigna tres parámetros
      parametro1: mp4 se guarda y se referira como %1
      parametro2: ruta actual\capitulos y se referira como %2
      parametro3: ruta actual\emitidos y se referira como %3


Llamada: etiqueta :PlayEnWinamp y le asigna la variable %SigArchivo% como único parametro

Call :PlayEnWinamp "%SigArchivo%"

Salida y código de verificación "exitoso" al terminar

Exit /B 0

Etiqueta :MoverSigArchivo y le asigna tres argumentos
     argumento1: extension sin comillas:  mp4, se guarda como %~1, se asigna la variable %extension%
     argumento2: nombre de la carpeta sin comillas: capitulos, se guarda como %~2, se asigna la variable %capitulos%
     argumento3: nombre de la carpeta sin comillas: emitidos, se guarda como %~3, se asigna la variable %emitidos%

NOTA:
Con Comillas: %1 resultado: "parámetro de varias letras"
Sin Comillas: %~1 resultado: parámetro de varias letras

:MoverSigArchivo 
set "extension=%~1"
Set "capitulos=%~2"
Set "emitidos=%~3"
 

FOR analiza y asigna la variable con nombre: #

sintaxis FOR para archivos

 FOR %%parámetro IN (establecer comandos o rutas) DO (acciones)
      
PARA %%# EN (carpeta: capitulos\todos los archivos.mp4) DO (accion mover) salir y verificar
   
SET declara la variable: "SigArchivo" que devuelve el modificador %%~f#: ruta y el archivo de número menor
 
MOVE (argumento1, argumento2) DO (MOVER %%~f# a carpeta emitidos\%%~nx#)
      
REFERENCIAS:

%%~f#: ruta del archivo con número menor (no estoy seguro)
%%~nx#: nombre de archivo y extensión
1>NUL: no direcciona salida de texto
EXIT /B 0:  salida con código "exitoso"
GOTO EOF:  terminar funciones y continua a la etiqueta :PlayEnWinamp" y sus comandos)

For %%# in (
	"%capitulos%\*.%extension%"
) Do (
	Set "sigArchivo=%%~f#"
	(Move "%%~f#" "%emitidos%\%%~nx#")1>NUL
	Exit /B 0
)
Goto:EOF  
 

Etiqueta: PlayEnWinamp y le asigna tres argumentos
     argumento1: Asignar una variable llamada Filepath argumento %~1 definido extensión en la etiqueta MoverSigArchivo

argumento2: Asignar una variable llamada wampDir: ruta de instalación de winamp, argumento %~2

      
IF el argumento: carpeta capitulos NEQ: no es igual
n+1 aumenta el numero
 

:PlayEnWinamp
Set "filepath=%~1"
Set "wampDir=%PROGRAMFILES(X86)%\Winamp"
 
If "%~2" NEQ "" (Set "wampDir=%~2")
 
Start /B "WinAmp" "%wampDir%\winamp.exe" "%filepath%"
Goto:EOF
 

Conclusiones:

El código funciona hasta la parte donde mueve los archivos,
Pero al enlistar el archivo la ruta sigue en la carpeta capítulos y no emitidos…

No se si me pueden ayudar a ver como corregir que enliste el ultimo archivo movido a la carpeta “emitidos”.

Buena madrugada.

Buenas noches, esta es la primera vez que escribo en esta sección del foro, bueno y al grano mi consulta es esta:

compre en una ganga 2 equipos de puente inalambrico modelo FWB5000 - JMP SYSTEMS (Coreanos), con la idea de conectar a través de antenas 2 puntos, para hacer un Stream de vídeo en la red que estos me permiten, para poder transmitir un evento de vídeo y conectarlo a la red análoga conocida como cable de tv.

 la cuestión es que utilizando el PUTTY, y un cable serial logre ingresar al administrador del mismo



después de batallar un rato, logre que los 2 equipos (router),  se pudieran ver a través del canal RF 12 y pense que habia ganado la batalla,

hice un ping sostenido para verificar y podía comunicarme en teoría con la otra terminal, lbien instale el programa VLC a las Pc's que a su vez se conectaban al router y antenas a tráves de cable utp, le coloque ips del mismo rango a ambas pc pero no puedo ver las pc a pesar qu tienen las ips del mismo rango, pero si puedo hacer ping a la otra terminal router, por lo cual mi idea de video en red no me funciona, alguna sugerencia de un paso olvidado.

Buena noche amigos, estoy aquí nuevamente para hacer otra de esas solicitudes de ayuda en un batch, sino extrañas, pero no comunes, esta es la situación,

Tengo una colección de archivos de video dentro de una carpeta llamada SERIE1
Los archivos dentro de SERIE1 están nombrados con tres ceros 000 para para mantener un orden de los mismos y no se enreden los que tengan 1 con los 11, o sea mantengan la numeración que corresponde a un correlativo algo asi:

SERIE1:
Capitulo_001
Capitulo_002
Capitulo_003
Capitulo_004
Capitulo_005
Capitulo_006
Capitulo_007
Capitulo_008
Capitulo_009
Capitulo_010
Capitulo_011
Capitulo_012
Etcétera….

Al dar doble click al batch: quiero que el archivo: Capitulo_001 se mueva a una carpeta nueva llamada SERIE1_EMITIDOS, y después se añada a la lista de reproducción de winamp para parle Reproducir o play.
Y así entonces el siguiente archivo la próxima vez al darle al batch seria Capitulo_002 y play en winamp,
Y consecutivamente, cada vez que se corra el comando en el batch, hasta que la carpeta SERIE1 quede vaciá y la carpeta SERIE1_EMITIDOS guarde intactos todos los capítulos, para tal efecto googlenado halle esto más lo mezcle con otros códigos para ver si así funciona o me pueden guiar a corregirlo

rem @echo off
 
Echo #EXTM3U>"%Temp%\capitulo_hoy.tmp"
 
for /f "tokens=*" %%a in 
('dir /b /on E:\series\SERIES1\*.mkv$*') do
 (
move E:\series\SERIES1\"%%a" E:\series\SERIES1
 
E:\series\SERIES1\"%%a"
pause
)
 
do (Echo  %%a>>"%Temp%\ capitulo_hoy.tmp")
 
 
Start /B "" "%PROGRAMFILES(X86)%\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
 
Exit

muchas gracias por su tiempo, mientras tanto haré mis pruebas.

Como llamar una ventana on focus… con batch

Ejemplo tengo varios procesos:

Proceso1.exe   = nombre de ventana: reproductor de música
Proceso2.exe   = nombre de ventana: reloj
Ventana3.exe   = nombre de ventana: script batch


Y quisiera que el reloj pasara al frente visualemente la ventana queda seleccionada y encima de las otras


Proceso2.exe   = nombre de ventana: reloj
Proceso1.exe   = nombre de ventana: reproductor de música
Ventana3.exe   = nombre de ventana: script batch


gracias...


AMPLIO:


Encontre esto por alli: pero no se como modificarlo para que no haya que presionar enter

@echo off& setlocal enableextensions enabledelayedexpansion
@if /i "%~1"==":focus" goto:focus& rem focus back to batch.
 
set /p what=  Press Enter: &&(
echo.  You didn't say that !what! & pause & goto:eof )||(
echo.  You said Enter.& pause)
 
set a=abc
DsLogo.exe /e,C:\
start "" call %~s0 :focus "%~0" "%~1" "%~2"& exit
 
:focus
shift&shift
  echo.
  echo All arguments are okay; is good working:
  echo.
  echo   "0" is "%~0"
  echo   "1" is "%~1"
  echo   "2" is "%~2"
  echo.
  echo   "a" is "%a%" is "!a!"
  echo.
  pause
exit

la fuente:
https://groups.google.com/forum/#!topic/alt.msdos.batch.nt/PnYlN6Lj_V4

bueno al que se pregunte como reproducir correctamente video MP4 en winamp aqui hay una solución que me funciona en Windows 7

deben tener instalado el paquete K-litle codec pack

Menú de Inicio> Todos los programas> K-Lite Codec Pack> Herramientas> Windows7DSFilterTweaker> decodificadores preferidos
opción AAC bajo decodificadores de 32 bits, y seleccionado ffdshow en lugar de Microsoft

Edito:
Nullsoft DirectShow Decoder de las versiones 5.55 y 5.56 hay que
añadir ;MP4;MVA

no hay que tocar nada en Nullsoft DirectShow Decoder desde las versiones 5.57 + PRO

Buen día maestro, bueno para ampliar esto lo que necesito es corregir una ruta te explico
El comando para darle pausa a winamp que es el que necesito en las 2 partes del código

: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
 

Clever es una aplicación de terceros para controlar winamp en sus funciones básicas usando CMD, por ejemplo: Play, pausa, stop, etc

Un ejemplo de uso según la ayuda de clever:

 @ECHO off
cd\
c:
cd c:\clever
clever.exe pause
exit

Ósea que primero
1 Busca el archivo y lo ejecuta
2 Ejecuta el comanda clever pausa

Yo lo quise hacer funcionar así:
Primer intento:
(Use el pipe (|) por que lei que decía “Redirecciona la salida de un comando, a otro comando”)

 IF %ERRORLEVEL% LEQ 0 cd “%UserProfile%\Desktop\clever.exe” | clever.exe pause >nul | Taskkill /f /IM TxtTick.exe >nul & goto :Esperar

Pero parece que eso significaba:
SI HAY ERROR:
Busque y ejecute en la raíz del escritorio  “clever.exe” | ejecute “clever pausa” | después cierre el proceso “TxtTick.exe” (y) diríjase a la etiqueta  :Esperar

A esto le aye el inconveniente que el ejecutable clever estaba disponible a quien sea y lo podían borrar, asi que cree una carpeta con el nombre “archivos importantes “y lo coloque allí:

Entonces tenía que usar un código que lo buscara y lo ejecutara no importando si estaba en la raíz o en una carpeta o subcarpeta, modificándolo así:

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

SI HAY ERROR:
Busque en carpetas o subcarpetas donde está guardado el código y ejecute “clever.exe” | ejecute “clever pausa” | después cierre el proceso “TxtTick.exe” (y) diríjase a la etiqueta  :Esperar

En tus recomendaciones de esta pregunta me dijiste:


1. Usa los operadores de agrupación para agrupar los comandos ().

2. Encierra todos los argumentos "" (sobretodo el de la ruta de directorio...).

3. Comprueba si el error se solucionó.

Pensé separo los comandos con paréntesis y los uno con pipes o con “y” (&), hice pruebas mas no me funcionaron, entonces que puedo hacer para que funcione?

Si tengo un batch... cualquiera... como puedo hacer para que desde el mismo se inicie minimizado o minimizado en SYSTRAY?
o como colocar el

START /MIN

dentro del mismo batch y que funcione


agradezco su tiempo

Hola amigos buenas tardes... hoy vengo nuevamente preguntando algo... parecerá simple pero me estorba de gran manera el simple hecho que aparezcan... la cosa es asi:

cuando cierro un programa con la instruccion TASKKILL por ejemplo

TASKKILL /IM Dslogo1.exe /F >nul
exit

me quedan siempre los iconos del programa en cuestión en la barra de sistema de windows, bueno cualquiera me dirá, se borran si pasas el cursor sobre el... pues bien asi es... pero desearía que se hiciera automáticamente al correr el código y busque por el foro y don google pero únicamente aye este:



si me permiten pongo la web pero esta en ingles:

http://wwv.comanswer.com/question/tray-icon-does-not-disappears-on-killing-process

//creating a NotifyIcon
NotifyIcon notifyicon = new NotifyIcon();
notifyicon.Text = "Logo Ds canal"; 
notifyicon.Visible = true; 
notifyicon.Icon = new Icon(GetType(),"Icon.ico");
//let it disappear
notifyicon.Dispose();
 

por mi pequeña deducción seria así pero no me funciona...

TASKKILL /IM Dslogo1.exe /F >nul
 
(
	 Echo Set objShell = WScript.CreateObject("WScript.Shell"^)
	 Echo NotifyIcon notifyicon = new NotifyIcon();
	 Echo notifyicon.Text = "Logo Ds canal"; 
	 Echo notifyicon.Visible = true; 
	 Echo notifyicon.Icon = new Icon(GetType(),"Icon.ico");
	 ::let it disappear traduccion: dejar que desaparezcan
	 Echo notifyicon.Dispose();
)
 
exit

antes de los codigos digo:


1. el proceso a cerrar se llama: Dslogo1 y este se inicia minizado en la barra de sistema

2. el nombre que aparece en la barra de sistema es "Logo Ds canal" no como el nombre del proceso




como siempre desde ya gracias...

Hoy en día dirijo un pequeño pero prometedor proyecto de un canal de TV local, la necesidad de mejorar cada día me ha llevado a crear una serie de herramientas, personalizadas en conjunto con algunas ya existentes, para lograr mi objetivo, mi idea que con los años y ayuda de expertos he ido formando funciona de la siguiente manera:

1. Utilizo Principalmente Winamp (Winamp.exe) para tirar mis videos, películas, etc, debido a que esta aplicación recibe una gran serie de complementos, plugins, comandos, etc.

2.   Como segundo reproductor utilizo otro mas que soporta casi igual o diferente tipo de comandos Bsplayer (Bsplayer.exe) pero el uso especifico es reproducir unplay list con jingles o anuncios

3.   Utilizo un software llamado Ds clock para mostrar la hora en la pantalla (Dsclock.exe)

4.   Y otro para mostrar logotipos llamado Desktop Logo (DsLogo.exe)

5.   Y finalmente otra aplicación de pago llamada TextTcker (Barra.exe)  para el scrool text…

Bueno  dirán que quiere decir con esto, además qye tiene que ver con programación… XD…

Bueno aquí entra lo poco que he implementado… pero hoy por hoy me doy cuenta que necesito saber algo de programación para hacer funcionar todo esto

Para evitar abrir programas por programas cree una pequeña línea de comandos DOS o batch y uno o fusiono las 2 aplicaciones graficas o informativas


Los scrips anteriores que use son estos, pero ya me están siendo obsoletos o incómodos para mi objetivo por lo cual tratare de compilar uno mejor


Así:

@echo off
START /D "X:\Disco\Programa\Desktop Logo 1" DesktopLogo.exe
ping -n 5 localhost>nul
START /D "C:\Archivos de programa\DS Clock\" dsclock.exe 
Exit
 

o con este otros 2 que me acaban de facilitar

@echo off
FOR /R %%_ in (*DsLogo.exe) do ("%%_")
 

No sé pero no los pude unir  así que los hice por aparte y después los compile juntos…

@echo off
START /D "%PROGRAMFILES%\DS Clock" dsclock.exe
exit 
 

Para hacerlos desaparecer o quitarlos he usado el comando Batch Kill process

TASKKILL /IM Desktop logo1.exe /F >nul
TASKKILL /IM dsclock.exe /F >nul
TASKKILL /IM TxtTick.exe /F >nul
exit
 

Pero queda el molesto icono en el Systray que muestra los procesos abiertos.
Como se darán cuenta programar esto es sencillo pero me ha resultado incomodo en algún modo…

Que busco hacer ahora…

1 necesito hacer un script que otra vez el llamado de las aplicaciones graficas pero que corra únicamente si el proceso Winamp está corriendo o activo y si detecta el proceso Bsplayer se cierre:
•   Ds clock
•   DsLogo
•   Barra ( si esta activa y es opcional)


presentación de los intentos de fusionar mi idea

@echo off
TASKLIST /FI "winamp.exe " | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 Ping -n 5 localhost >nul & goto  START /D "C:\Archivos de programa\DS Clock\" dsclock.exe & FOR /R %%_ in (*DsLogo.exe) do ("%%_") & Ping -n 5 localhost >nul & goto
IF NOT %ERRORLEVEL% LEQ 0 TASKKILL /IM DsLogo.exe /F >nul & TASKKILL /IM dsclock.exe /F >nul
TASKKILL /IM TxtTick.exe /F >nul do ("%%_") & Ping -n 5 localhost >nul & goto
 

Pero no se cómo incluir este codigo VB:

ejemplo de codigo VB No. 1

Select Case Status
       Case 1
          WinAMP_GetStatus = "PLAYING"
       Case 3
          WinAMP_GetStatus = "PAUSED"
       Case Else
          WinAMP_GetStatus = "STOPPED"
    End Select

Ejemplo de codigo VB   numero 2:

Function WinAMP_GetStatus() As String
 
    '----------------------------------------------------------'
    'Emula la condicion de Winamo: Play, Pausa y Detener'
     'Retrieves the status of WinAMP: PLAYING, PAUSED or STOPPED'
    '----------------------------------------------------------'
 
    Dim Status As Long
    Dim i As Long
 
    If hWndWinAMP = 0 Then
       MsgBox "WinAMP window not found yet...", vbOKOnly + vbCritical, "WinAMP Not Found"
       Exit Function
    End If
 
    Status = SendMessage(hWndWinAMP, WM_USER, 0, WA_GETSTATUS)
 
    Select Case Status
       Case 1
          WinAMP_GetStatus = "PLAYING"
       Case 3
          WinAMP_GetStatus = "PAUSED"
       Case Else
          WinAMP_GetStatus = "STOPPED"
    End Select
 
End Function

Algo así:



Que haría ahora compilaría en un solo script el abrir el logo y la hora si se cumplen determinadas acciones, eso me ahorraría mucho trabajo de tareas programadas…
Agradeceré cualquier ayuda.

Saludos desde Guatemala.

Dsalomon.

hol amigos... les saludo desde Guatemala... la verad es que estoy varado en una labor

estoy armando un proyecto que va asi:


1. un script que busque en la carpeta y subcarpeta un archivo ejecutable en donde este... no en C: u otra unidad...
2. correr este ejecutable
3. minimizar el programa con las teclas Alt+Espacio+N (por que este programa no obedece las opciones de iniciar minimizado /m)


probe asi pero no doy con la linea adecuada:




y tambien se me ocurrea algo mas simple:


el codigo para correr Alt+Espacio+N no lo encuentro... 


agradecere cualquier sugerencia...